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15-Sep-1984 59:04 VAX-11 FORTRAN V3.4-56 P 1 
b-bep $3:29:9% had 


1 

p-1984 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR; | 
0001 SUBROUTINE BRIEF_C_DISPATCHER (Lun, Report_type, Record_Length, | 16 
900¢ . Summary qual, Summary_flag) sire eke _ | 19 
Spee ‘ Version: *v04-000' 12 
sie] ee Ee ee ee ere eee 12 

om ® 

9008 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 16 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 16 
9010 Cs ALL RIGHTS RESERVED. * 1 
® ‘ 
9012 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 16 
001 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 16 
0014 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS OR ANY OTHER * 16 
0015  C* COPIES THEREOF MAY NOT BE DED OR OTHERWISE MADE AVAILABLE TO ANY * 16 
0016 Ce HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 16 
9017 Ce TRANSFERRED. ® P 16 
® fl 
0019 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 16 
0020 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 16 
9021 ce CORPORATION. * 16 
& 4 
$058 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 16 
002% Ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 1° 
® q 
16 
0037 I caisataneleeiteniaineniaterdisialabieandateienbiditadaniiidagmataiiicnebdniabenaniimedaanimee ie 
C : 
90¢9 C 16 
0030 C 16: 
003 ¢ AUTHOR: Elliott A. Drayton CREATION DATE: 15-Dec-1982 1 
5035 C Functional description: 16 
0034 C 16: 
itty : This module displays brief reports for error log entries. 12 
0037 4 Modified by: 16 
0038 C 16: 
0039 C v03-014 SARO279 Sharon A. Reynolds 26-jun-1984 16: 
0040 C - Added TMSCP support. 16 
0041 C - Fixed a bug in the calling parameters to 16 
pong : brief_pudriver_mscp_dispatcher. 18 
0044 C v03-013 SARO253 Sharon A. Reynolds 23-Apr-1984 16 
0045 C Added a field length for the output of the device 16 
sae | “a i 
8 C vO3-012 SARO251 Sharon A. Reynolds 11-Apr-1984 16 
9 C Removed erf_unkentry and erf_unkclass messages. They 16 
50 C are no longer needed due to fhe way unknown entries 16 
ith ¢ are now handled. 19 
$088 C v03-011 SARO213 Sharon A. Reynolds 28-Mar-1984 16 
0085 ¢ Added KMS3271 support. 13 
26 C v03-010 EAD0123 Elliott A. Drayton 23-Mar-1984 16 
005 C Changed PA logmessage text for subtypes 7 and 8. | 16 
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EAD0116 Elliott A. Drayton 21-Mar-1984 
Added code to report new HSC logmessage. 
SARO219 Sharon A. Reynolds, 10-Mar-1984 


- Corrected the check for the call to image loader for 
/summary support for briefs. 


SARO208 Sharon A. Reynolds, 8-Mar-1984 

- Fixed a bug in the output of memory entries when 
there is more than one controller. 

- Changed the way the call parameters for image loader 
were passed to work with the new image loader. 


SARO186 Sharon A. Reynolds, 17-Jan-1984 
= Added message type ‘8' to the message type 
dispatching in the logmessage routine. 
- Added support for emery and volume summaries. 

a 


- Added last SYE update changes. 

SARO173 Sharon A. Reynolds, 11-Nov-1983 
- Added brief support for ‘logmscp’ entries. 
SARO155 Sharon A. Reynolds, 11-0c t-1983 


- Made "'RH7XX"* register heralds generic. 

- Applied an SYE update that modifies the text for 
*pudriver’ support. 

- Made ‘‘DW7Xx"' register heralds generic. 

- Made ‘padriver’ changes. 

- aoe a bug in the output of the pudriver code word 
ext. 


SARO141 Sharon A. Reynolds, 23-Sep-1983 
Put in unknown entry and device class error messages. 
Deleted unused routines. 

Fixed carriage control for ERF. 

Added DR11W support. 


SARO109 Sharon A. Reynolds, 21-Jun-1983 
Undefined support. 
$ARO0033 Sharon A. Reynolds, 66-Jun-1983 


R 
Added brief/cryptic support for memory and mount/dismount 
entries. Added a few comments. 


*SRC$:SYECOM.F 

*SRC$:DEV_CLASS.FOR /NO 
*src$:volmount.for /nol 
*SRC$:SSMESSAGE.FOR /no 
*SRC$:PARSERDAT.FOR /no 


erf_loaderr 
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BRIEF _C_DISPATCHER 15-Sep-19 4 $3: 9:98 VAX=11 FORTRAN ¥3.4-56 


? . age 3 


-Sep-1984 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR;1 

0967 17 
0908 Character*! Report_type Vy 
0970 Byte Brief_P2, ' Number of registers to output 17 
0971 ¥ Cry P2 i . esse 7 
097 1 Brief_32 i 1 = 32 bit reg's, 0 = 16 bit reg's Vy 
0974 Byte Lun, ' Logical unit number for output 7 
0975 1 Tof, ! Flag for call to FACTOF 17 
097 1 Exit! ' Flag to determine if to exit routine 17 
097 1 Writel, ' Flag to determine if to use write 17 
0978 1 Device_type i Value for device type 17 
9979 1 Device-class ! Value for device class 1 
449 Data exitl/0/,tof/0/,writel/0/ 
0388 Byte Summary_qual ! Summary report indicator Vv 
0985 Integer*4 Brief_P3, ' Address of registers 17 
0986 1 Brief_P4(2), ! Parameters for subroutines 17 
0987 1 Dhead P2(2), ! Address of id string 17 
pees 1 Linchk_P2 4 
0990 Integer*4 Record_length, ! Length of error packet being processed 17 
0991 1 Compress4, ' External function name 17 
099 1 Cpu_type ' Value for cpu type 17 
099 1 Reg_copy(0:11), ! General area for register values 17 
0994 1 Length, ! Length of string in MESSAGE 17 
0995 1 Xfer_addr, ! Transfer address for loadable image 17 
0996 1 Status, ' Return status 17 
0997 1 Memory_summ, ! Memory summary indicator 17 
0998 1 ALL_summ ' Complete summary indicator 17 
44.4 1 Summary_ flag ! Summary type indicators 44 
1001 Character*80 Message 17 
1O06 17 
100 Character*23 image_name 17 
Ie image_name /*SYSSSYSTEM:ERFPROC3.EXE'/ ue 
1006 C 17 
44 : RKO6 and 07 definitions 4 
64 : Define the register mnemonics for the BRIEF and CRYPTK reports vy 
1914 CHARACTER®4 RK_REG_HERALD(0:11) 17 
1012 DATA RK_REG_HERALD(O) "CS18"/ 17 
101 DATA  RK_REG_HERALD(1) /*wCe'/ 17 
1014 DATA RK-REG_HERALD (@) /"BAt'/ 17 
1015 DATA RK_REG_HERALD (35) /"DAt' 17 
1916 DATA RK_REG_HERALD(4) /*°CS2e'/ 17 
101 DATA  $RK_REG_HERALD(5) /"DS*'/ 17 
1018 DATA RK _REG_NERALD (6) /‘ER®'/ 17 
1019 DATA  RK_REG_HERALD(7) /*AS*'/ 17 
1020 DATA RKREG_HERALD (8) /'DC8'/ 17 
1021 DATA  RK_REG_HERALD(9) /*MRe'/ 17 
Ose DATA “REG_HERALD(10) /°ECI#'/ 17 
102 DATA RK_REG_HERALD(11) /*EC2e'/ 


+ 
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BRIEF _C_DISPATCHER 18-Sep-1984 $929 :0% VAX-11 FORTRAN 260-26 Page 4 | 
-$ep-1984 13:49:41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR;1 

1024 

1883 

+ f : RP device type definitions 

1029 C Define device types and register mnemonics for the BRIEF 

10350 C and CRYPTK reports 

1031 C 

10 ¢ PARAMETER RMO3 = g 

103 PARAMETER Reoe = 

1034 PARAMETER RPOS = 4 

1035 PARAMETER RPO4 = ; 

10 PARAMETER RPQ7 = 

1037 PARAMETER RM80 = \3 

1038 PARAMETER RMOS = 1 

1040 CHARACTER*®4 REG_HERALD1(0:11) 

1041 ATA EG_HERALD1T0) /'CS#'/ 

1008 DATA REG_HERALD1(1) /'DS*'/ 

104 DATA a SPL /‘ERI#'/ 

1044 DATA REG_HERALD1(3) /‘MRe'/ 

1045 DATA REG_HERALD1(4) /*AS*'/ 

1046 DATA REG_HERALD1(5) /‘DA®'/ 

1047 DATA a a SE /*DOT#'/ 

1048 DATA REG_HERALD1(7) /'LA®'/ 

1049 DATA REG_HERALD1(8) /'SN*'/ 

1050 DATA  REG-HERALD1(9) /'OF#'/ 

1051 DATA REG_HERALD1(10) /'DC#'/ 

1026 DATA REG_HERALD1(11) /°CC#'/ 

1054 CHARACTER*4 REG_HERALD2(0:11) 

1055 DATA  REG_HERALD2T0) /'CS#'/ 

1056 DATA REG_HERALD2(1) /*DS*'/ 

1057 DATA REG_HERALD oer /*ERI#'/ 

1058 DATA REG_HERALD2(3) /‘MR1*®'/ 

1059 DATA REG_HERALD2(4) /‘AS*'/ 

1060 DATA REG_HERALD2(5) /'DA®'/ 

1061 DATA REG_HERALD 9) /*OT#'/ 

1006 DATA REG_HERALD2(7) /'LA®'/ 

106 DATA REG_HERALD2(8) /'SNe'/ 

1064 DATA REG_HERALD2(9) /‘OF®'/ 

1065 DATA REG_HERALD2(10) /'DC#'/ 

J ® 

1208 DATA REG_HERALD2(11) /*HR*'/ 

1 

1069 C 

1979 : RLO2 Definitions 

1078 : Define the register mnemonics for the BRIEF and CRYPTK reports 

1074 CHARACTER®4 RL_REG_HERALD(0:3) 

1075 DATA L_REG_HERALD(0) /*CSe'/ 

1076 DATA RL_REG_HERALD(1) /"BAt'/ 

107 DATA at REG NERALD CG: /*DAt'/ 

Ha DATA RL_REG_HERALD (5) /*MPe'/ 

1 
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1081 C 

138 : RX01/2 Definitions 

1084 C Define necessary data and the register mnemonics for the BRIEF 
1082 : and CRYPTK reports 

1087 Integers4 extended_registers(2) 

105 Integer*2 extended_status (4) 

1091 Equivalence (extended_registers,emb$l_dv_regsav(7)) 
1038 Equivalence (extended_registers,extended_status) 
1094 CHARACTER*5S RX_REG_HERALD(0:5) 

1095 data rx_reg_herald(0) /*CS*'/ 

1096 data rx_reg_herald(1) /*ES#'/ 

1097 data ra _rog.herei ets) JES 18°/ 

1098 data rx_reg_herald(5) /‘ES $5.4 

1099 data rx_reg_herald(4) /°ES 3e'/ 

1339 data rx_reg_herald(5) JES 4e'/ 

1108 C 

bE : TUS8 Definitions 

1182 3 Define the register mnemonics for the BRIEF and CRYPTK reports 
1107 CHARACTER*5 DD_REG_HERALD(0:3) 

1108 DATA  DD_REG_HERALD(O) 7*RCSR**/ 

1109 DATA  DD-REG-HERALD(1) /*RBUF *"/ 

1110 DATA  DD-REG-HERALD(2) /*XCSRe*/ 

BB DATA DD_REG_HERALD(5) /*XBUF*e'/ 

143 

1114 C 

1115 C ML11 Definitions 

ie 

1138 3 Define the register mnemonics for the BRIEF and CRYPTK reports 
1120 Character*5S nl reg herald(0:11) 

1121 Data ml_reg_herald(0) /*CS18"/ 

1156 Data ml_reg_herald(1) /'DS**/ 

112 Data al reg.neraidsg: /*ER®'/ 

Vist Data ml_reg_herald(3) /*MRe*/ 

1125 Data ml_reg_herald(4) /*AS*'/ 

1126 Data ml_reg_herald(5) /*DAt'/ 

1127 Data al _reg_nerald(s) /*OT#'/ 

1128 Data ml_reg_herald(7) /*SNe*/ 

1129 Data ni reg_herald(d) /*E1e'/ 

11 Data ml_reg_herald(9) /*EQe'/ 

1131 Data ml_reg_herald(10) /*EER'/ 

§ Data ml_reg_herald(11) /EL#'/ 

11 

1135 C 

11 C RB730 Definitions 

113 C 
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-Sep-1 DISKSVMSMASTER: CERF ..SRCJB_C_DISP.FOR;1 
es 3 Define the register mnemonics for the BRIEF and CRYPTK reports 
1140 Character*8 rb-re9 herald(0:6) 

1141 data rb_reg_herald(0) /*RB CSR*'/ 

1326 data rb_reg_herald(1) /*RB BARt'/ 

114 data rb_reg_herald(2) /*RB BCR*'/ 

1144 data rb_reg_herald(5) /*RB DAR*'/ 

1145 data rb_reg_herald(4) /'RB MPRe'/ 

1146 data rb_reg_herald(5) /'RB ECCi*'/ 

3 bi data rb_reg_herald(6) /*RB ECC2*'/ 
1149 

1150 C 

113) : TE16, TU4S and TU77 tapes definitions 

1138 3 Define the register mnemonics for the BRIEF and CRYPTK reports 
1155 CHARACTER*4 tape_reg herald(0:9) 

1156 DATA tape_reg_herald(0) /*CS#*/ 

1157 DATA tape_reg_herald(1) /'DS*'/ 

1158 DATA tape _reg_heraid’¢) /ER®'/ 

1159 DATA tape_reg_herald(3) /*MRe'/ 

1160 DATA tape_reg_HERALD(4) /*AS*'/ 

1161 DATA tape_reg_HERALD(5) /*FCe*/ 

1306 DATA tape_reg_HERALD(6) /*DT#'/ 

116 DATA tape_reg_HERALD(7) /*CKe'/ 

1164 DATA tape_reg_HERALD(8) /*SNe'/ 

1165 DATA tape_reg_HERALD(9) /*TC#'/ 

1166 

1167 

1168 C 

116? : TS11 Definitions 

1171 C Define mereocaty data and the register mnemonics for the 
1176 ; BRIEF and CRYPTK reports 

1174 Charactert6 ts reg herald(0:6) 

1175 data ts_reg_heraid(0) /‘BAt' 

1176 data ts_reg_herald(1) /*SRe'/ 

1177 data ts_reg_nerald(¢) /°XO8'/ 

1178 data ts_reg_herald(3) f°X1e'/ 

1179 data ts_reg_herald(4) /*X2e'/ 

1180 data ts_reg_herald(5) /*X3' 

ie data ts_reg_herald(6) /*RBPCRe'/ 

1185 EQUIVALENCE (EMBSL_DV_REGSAV(15) ,MSG_BUF (0) ) | 
ithe INTEGER*4 MSG_BUF (0:6) 

1187 C 

HY +3 : TU78 Tape definitions 

HB : Define the register mnemonics for the BRIEF and CRYPTK reports 
1136 charactert6 af _reg herald(0:16) 

119 data mf_reg_herald(0) "CSit'/ 
1194 data mf_reg_herald(1) /"1S*'/ 
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730p=1982 73:23:41 DhSkSumSMASTeN: EERE sshcIB_C_DISP.FORG] =” 


1195 data af reg_nerald(e) /*TC#'/ 1 
1198 data mf-reg_herald(3) /*MR18'/ ] 
119 data mf_reg_herald(4) /*ABe'/ 1 
1198 data mf_reg_herald(5) /*BCe'/ 18 
1199 data af_reg_herald(¢) /*OTe'/ 18 
1200 data mf_reg_herald(7) /*OS*'/ 18 
1201 data af_reg_herald(9) /*SNe'/ 18 
1 0 data mf_reg_herald(9) PBRee 18 
120 data mf_reg_herald(10) /*MR3*"/ 18 
1204 data mf_reg_herald(11) /*NDTA®'/ 18 
1205 data nfireg_herald(12) /*NDT O#'/ 18 
1 0¢ data mf_reg_herald(13) /*NDT 1*'/ \8 
120 data mf _reg_herald(14) /'NDT 2e'/ 18 
1208 data mf_reg_herald(15) /*NDT 3e'/ 18 
1209 data  mf_reg_herald(16) /"1De"/ Ns 
iB if 
1318 : DUP3271 18 
ig? : Define the register mnemonics for the BRIEF and CRYPTK reports 

1513 Character*5 dup _re9 herald(0:4) 

1218 Data dup_reg_herald(0) /*PCSRe'/ 

1219 Data dup_reg_herald(1) /*RCSR**/ 

1220 Data qup.res.heraldts) /*RBUF*'/ 

1221 Data dup_reg_herald(3) /*TCSRe'/ 

\ss¢ Data dup_reg_herald(4) /*TBUFe*/ 

1224 

1225 C 

isp Eso 

\se8 3 Define the register mnemonics for the BRicF and CRYPTK reports 

1586 Charactert7 sb_reg herald(0:3) 

1231 Data sb_reg_herald(0) /*CSRO®'/ 

1S36 Data sb_reg_herald(1) /*CSR1i8*/ 

123 Data sb_reg_herald(2) /*CSR2e'/ 

iste Data sb_reg_herald(3) /"ERRSTS*'/ 

1386 ¢ 

: 33 : KMS3271 

1239 3 Define the register mnemonics for the BRIEF and CRYPTK reports 

1241 Charactert5 knsS271 reg herald(0:9) 

1 4g Data kms3271_reg_herald(0)  /*DSTS*'/ 

124 Data kms3e71_reg_herald(1) /'LSTA®'/ 

1244 Data kms3271_reg_ oraidta: /*CSRO®'/ 

1245 Data kms3e71_reg_heraid(5) /‘CSRI*'/ 

1 28 Data kms3e71_reg_heraid(4) /'CSR2*'/ 

124 Data kms3e71_reg_heraid(5) /'CSR35*'/ 

1248 Data kms ft -reg_heral dig) /*CSRO®'/ 

1249 Data kms3e71_reg_herald(7) /*CSRi*'/ 

1250 Data kms g} reg heraid(g} VatenGees 

1251 Data kms3271_reg_herald(9) /*CSR5*'/ 


Page 8 


15 
BRIEF _C_DISPATCHER 15-Sep-19 4 23:59:04 — VAXe11 FORTRAN V3, 6-56 
41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR; 1 


59 
-Sep-1984 15:49: 


1 $ 18 
1 18 
1254 C 19 
! 5 : LPA11K 13 
\ 3° ¢ Define the register mnemonics for the BRIEF and CRYPTK reports 13 
1259 CHARACTER®4 \pa req HERALD (0:3) 19 
1260 DATA = Lpa_reg_HERALD(0) /*CS18"/ 19 
1261 DATA _Lpa_reg_HERALD(1) /*CS2e'/ 19 
1 6¢ DATA Lpa_reg_HERALD(2) /*RDA®'/ 19 
: ° DATA lpa_reg_HERALD(3) /*MRe'/ 1 
1265 19 
1266 € 19 
126? C DR780 19 
1268) = 19 
1269 «CC Define necessary data and the register mnemonics for the 19 
1970 ¢ BRIEF and CRYPTK reports 1 
127@ Charactere4 dr780 req herald (0:5) 19 
127 DATA dr780_reg_HERALD(0) /*CRe'/ 19 
1274 DATA dr780-reg_HERALD(1) /°UTL#'/ 19 
1275 DATA dr780-reg_HERALD(2) /*BAt'/ 19 
1276 DATA dr780~reg_HERALD(3) /*SLe"/ 19 
1277 DATA = dr B0"reg_HE LD(4) /*CAIe'/ 19 
1978 DATA dr780~reg_HERALD(5) /*CA2e'/ 19 
1280 19 
1281 «¢ 19 
1288 ¢ dr750 13 
1386 ¢ Define the register mnemonics for the BRIEF and CRYPTK reports 13 
1286 Characters dr750_req herald(0:5) 19 
1287 ata dr750_reg_herald(0) /*DCRe'/ 19 
1288 Data dr750-reg_herald(1) /*UTL#*/ 19 
1289 Data dr790-reg_herald(@) /*BAt'/ 19 
1290 Data dr750-reg_herald(3) /'WCS ADR*'/ 19 
1291 Data dr750_reg_herald(4) /*WCS DAT#*/ 19 
! 3 Data dr750-reg_herald(5) /*DSL*'/ bb 
1294 C 19 
| 95 ¢ Drilw i 
1 39 C Define necessary data and the register mnemonics for the 19 
! 38 ¢ BRIEF and CRYPTK reports M3 
1 CHARACTER®4 dritu_reg herald(0:4) 19 
1301 Data driiw_reg_herald(0) /*CSRe*/ 19 
1 § Data driiw_reg_herald(1) /*EIR®*/ 19 
1 Data Gr itu_reg neraidis? /*IDR*'/ 19 
1 Data drilw_reg_herald(3) /*BAt'/ 19 
: 5 Data driiw_reg_herald(4) /*wCe'/ \ 
1 19 
1308 19 


equivalence (emb$l_dv_regsav(0) ,padriver_error_type_code) 
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BRIEF _C_DISPATCHER IB-5e -1984 23:59:04  VAX=11 FORTRAN V3.4-56 Page 
reebr13Rs FSic9s41 — DLSkSUMSRASTER: FEAF ShcI8_C_DISP.FOR,?® 

1 C Pcllir 

1310 C 

1311 C Define necessary data and the register mnemonics for the 

: 1g : BRIEF and CRYPTK reports 

1314 character*6 peti irreg_herald(?:5) 

1315 data pcllir_reg_herald(0) /*RCR*'/ 

1316 data pcllir_reg_herald(1) /*RSR*'/ 

1317 data peti inareg_heraldt¢) /*RODBt'/ 

1318 data pcllir_reg_herald(3) /*ROBCe'/ 

1319 data pcllir_reg_herald(4) /"ROBAt'/ 

} so data pcliir_reg_herald(5) /*ROCRC#'/ 

132 

1358 C 

\3s¢ : Pcliit 

1326 C Define necessary data and the register mnemonics for the BRIEF 

135i : and CRYPTK reports 

13$3 character*6 pcllit_reg_herald(0:6) 

1330 ata pcl}}t reg heraid(d) /*TCRe'/ 

1331 data pcllit_reg_herald(1) /*TSRe'/ 

1338 data pet itareg_herald(e) /*TSOBt'/ 

133 data pcllic_reg_herald(3) /*TSBCe'/ 

1334 data pcliit_reg_herald(4) /*TSBAt'/ 

1335 data pcllit_reg_herald(5) /"TMMR**/ 

1338 data pcliit_reg_herald(6) /*TSCRC#'/ 

1338 

1339 C 

1340 C D107 

1341 C 

Hak C Define necessary data and the register mnemonics for the 

it ak : BRIEF and CRYPTK reports 

1345 integer*4 ucb$l_bs_cur 

1366 integer*4 ucb$b_bs_errmsg 

1348 equivalence (emb$l_dv_regsav(2),ucb$l_bs_cur) 

1362 equivalence (emb$l_dv_regsav(0) ,ucb$b_bs_errmsg) 

1351 charactert5 d207 reg herald(0:1) 

132¢ data dt07_reg_heraid 9 /*CUR®'/ 

1327 data dt07_reg_herald(1) /*PREV®'/ 

1355 

1356 C 

1320 : C1780/C1750 data definitions 

138 C Define neceseary data and the register mnemonics for the 

1361 ; BRIEF and CRYPTK reports 

1 § integert4 padriver_error_type_code 

1364 integer*4 pcnfgr 

1365 
| 
| 
| 
! 
} 
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equivalence Cemb$l_dv_regsav(1) ,pcnfgr) 


1 

1 

1368 character*6 ci_reg_herald(0:5) 

1369 data ci-reg_herald(0) /*CNFGR*'/ 

1370 data ci_reg_herald(1) /*PMCSR*'/ 

1371 data ci_reg_ eratdse: /*PSRt' 

1 Lf data ci_reg_herald(5) /*PFAR* 

137 data ci_reg_herald(4) /*PESR*e'/ 

: a data ci_reg_herald(5) /*PPRe'/ 

1376 C 

: a6 : UDASO 

i 4 : Define data for the BRIEF and CRYPTK reports 

1381 integer*2 initialization_handshake(8) 

1388 equivalence (emb(94) ,initialization_handshake) 

1385 C 

1358 ¢ UBA ERRORS/INTERRUPTS 

1388 C Define necessary data and the register mnemonics for the 

4 ; BRIEF and CRYPTK reports 

1391 INTEGER*®4 UBA_CSR, UBA_CR, UBA_SR, UBA_DCR, UBA_FMER 

1392 INTEGER®4 UBA“FUBAR, ADAPTER_TR 

1394 EQUIVALENCE (EMB(16) ,UBA_CSR) 

1395 EQUIVALENCE (EMB(20) ,UBA_CR) 

1396 EQUIVALENCE (EMB (24) ,UBA_SR) 

1397 EQUIVALENCE (EMB ( fer ne te 

1398 EQUIVALENCE (EMB (32) ,UBA_FMER) 

1399 EQUIVALENCE tthe LB FUBAR) 

e's EQUIVALENCE (EMB(40) ,ADAPTER_TR) 

1402 CHARACTER*®3 TR 

et DATA TR 7*TR ‘/ 

1405 CHARACTER*6 UBA_REG_HERALD(0:5) 

1406 DATA UBA_REG_HERALD (0) /*CSRe'/ 

1407 DATA UBA_REG_HERALD(1) /*CRe'/ 

1408 DATA re eee LH /"SRe'/ 

1409 DATA = UBA_REG-HERALD(3) /"DCRe'/ 

1410 DATA  UBA~REG- HERALD (4) /*FMER®'/ 

1o1) DATA UBA_REG_HERALD(5) /*FUBAR*'/ 

1218 C 

1ei¢ : MBA interrupts 

1416 C Define necessary data and the register mnemonics for the | 

ett : BRIEF and CRYPTK reports | 

16)? integer*4 rh780_control_register(6) | 

1631 equivalence (emb(16),rh780_control_register) | 
| 
| 

’ 
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Pa 
-Sep-1 C]B_C_DISP.FOR;1 
1423 characters4 mba_reg herald(6) 
1424 data mba_reg_herald(T) /*CSR*'/ 
1425 data mba_reg_herald(2) /*CRe'/ 
1426 data mba_reg_herald(5) /"SRe'/ 
1427 data mba_reg_herald(4, /‘VAR*'/ 
1428 data mba_reg_herald(5) /*BCRe'/ 
1? 3 data mba_reg_herald(6) /"DRe'/ 
1431 
14 ¢ C 
\e2 : BUGCHK 
1233 C Define necessary data and the register mnemonics for the 
1238 : BRIEF and CRYPTK reports 
re » Include ‘src$:modes.for /nolist' 
1477 Integer fa Sa & 
1478 
He Integer*4 bugmsg_length 
1481 Character*73 bugmsg_text 
1088 Parameter bugchk_code = 104 
148 
1484 
1485 C 
1486 C PUDRIVER 
1487 C 
pt + Integer*2 code_word 
res Equivalence (emb(82) ,code_word) 
1492 Character*(*) Msgl, msg2, Msg3, Atten 
1493 Parameter ( 
1494 1 Msgi = ‘‘‘AVAILABLE™ ° 
1495 : Msg¢ = ‘DUPLICATE UNIT NUMBER" ', 
1496 Msg3 = ‘*‘ACCESS PATH" ‘, 
re 4 4 Atten = "MSCP ATTENTION MESSAGE") 
1499 Character*(*) Init, Comp, Fail, Bus_msgl, Bus_msg2, Bus_msg3 
1500 Parameter 
1501 1 Init = *, INIT SEQUENCE °, 
1308 Comp = COMPLETED’, 
150 Fail = *FAILURE' 
1504 4 Bus_msgi = ", "SA" ERROR BIT SET' 
1505 5 Busimsg¢ = |. UBA DATAPATH PURGE ERROR’, 
1298 6 Bus_msg3S = *, UCODE REV AND ‘‘PUDRIVER'’ MIS-MATCH') 
1508 
4 : Logmscp (mscp messages without ucb's) 
1511 Integer*2 Logmscp_type 
131g Beulvalence (enb( 163, Logmscp. type) 
1514 
1515 en 
1516 C Common memory entry data definitions 
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PEF tarot r 

nteger memory_re ers 

1 i§ integereé buf fert0: 120) 

1520 integers4 mem_reg_buf fer (8) 

1521 incegere4 memory_register_0 

1 ¢ integer*4 memory _register_a 

} ; integer*4 controtler_coun 

1525 equivalence (mem_reg_buffer(1) ,memsry_register_a) 

1526 equivalence (embT16) , buf fer(0>, 

1527 equivalence (buf fer (Q) ,control ler count) 

12 8 equivalence (buf fer(2) , memory_registers) 

1530 character*5 mem_reg_herald(3) 

1531 data mem_reg_herald(1)/'CSRO*'/ 

15 ¢ data pos Mah h Hf a8 Td 

1237 data mem_reg_herald(3)/'CSR2*'/ 

1535 C Ma780 

1536 C 

1537 C Define necessary data and the register mnemonics for the 

1238 : BRIEF and CRYPTK reports 

HF 9 integer*4 port_configuration_register 

134¢ equivalence (mem_reg_buffer(1),port_configuration_register) 

1544 character*8 ma780_reg_herald(8) 

1545 data worey -fea.neretdsli/ caretmey / 

1546 data ma? a MO a a 

1547 data ma780_reg_herald(3)/'PCSR*'/ 

1548 data ma780_reg_herald(4)/"IVDTCR*'/ 

1549 data ma780_reg_herald(5)/‘AER*'/ 

1550 data ma780_reg_herald(6)/'CSRO*'/ 

1551 data ma780_reg_herald(7)/'CSRi*'/ 

1326 data ma780_reg_herald(8)/‘MAT#'/ 

1554 C 

1555 C ms780C 

1556 C 

1557 C Define necessary data and the register mnemonics for the 

1328 : BRIEF and CRYPTK reports 

1560 characters5 ms780c_reg_herald(3) 

1561 data ms780c_reg_herald(1)/‘CSRAt'/ 

1206 data ms7 Careg_herotdig?/ tieees, 

1397 data ms780c_reg_herald(5)/'CSRC#'/ 

1565 C 

1566 C MS780E 

1567 C : 

1568 C Define necessary data and the register mnemonics for the 

1368 : BRIEF and CRYPTK reports 

1571 character*5 ms780e_reg_herald(4) 

1376 data ms780e_reg_herald(1)/‘CSRAt'/ 

157 data ms780e_reg_herald(2)/"CSRB*'/ 
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1574 data ns /B0e _reg_herald(3)/*CSRCe'/ 
} 6 data ms780e_reg_herald(4)/"CSRD*'/ 
157 C 
} A: : mS750 
1580 C Define neces sary data and the register mnemonics for the 
: 1 ; BRIEF and CRYPTK reports 
; 5s integer*4 slot_index 
i 5 equivalence (mem_reg_buffer(1) ,memory_register_0) 
1587 C 
ag 73 
1590 C Define neceooary data and the register mnemonics for the 
133) : BRIEF and CRYPTK reports 
1388 integer*4 memory_csr0 
1333 equivalence (mem_reg_buf fer(1) ,memory_csr0) 
1597 C 
44 ; MOUNT/DISMOUNT data definitions 
1600 C Define the necessary data and the register mnemonics for the 
1601 C BRIEF/CRYPTIC reports 
1602 Cc 
17 Logical*1 str$trim 
1605 integer*4 emb$t_vm_label_length 
1606 integer*4 mount_operation_count 
1607 integer*4 mount_error_count 
1608 integer*4 volume_operation_count 
1o0, integer*4 volume_error_count 
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1611 ¢ 

1816 C Determine if a puagery report should be output. If so, load 

1eiz : SYSSSYSTEM:ERFPROCS.EXE for volume and memory summaries. 

1912 If (summary qual .€Q. 1) then 

1813 All_summ = LIBSEXTZV(sum$v_all_summ,sum$s_all_summ,summary_ flag) 

1918 Memory_summ = LIBSEXTZV(sum$v_memory,sum$S_memory,summary_Tlag 

1620 If ¢ (Call summ) 

1621 1 .OR. (memory _summ) ) 

16 § 1 .AND. (emb$w_hd_entry .EQ. 6 ! EMBSK_SE 

16 1 OR. emb$w_hd_entry .£0. 8 i EMBSK "HE 

i? ¢ 1) ) then 

19¢8 Status = IMAGE_LOADER (emb$w_hd_entry,device_class,xfer_addr) 

1628 If (xfer_addr .£Q. 0) then 

1699 Call LIBSSIGNAL (status) 

1039 !'27? Should i epgend a message indicating that memory summaries cannot be done. 
n 

1036 Endif 

163 Endif 

1634 

1635 

1636 C 

lo3f 3 Via the entry type, dispatch to the appropriate entry handling routine. 

1639 Goto (1,2,999,4,5,6,7.8.9,999) emb$w_hd_entry 

1640 Goto (14 12 5 Cemb$w hd_entry_- 10) 

1641 Goto (999,32,999,999,35,36,37,38,39,40 ) (emb$w_hd_entry - 30) 

164g Goto (41, 42.) (emb$w_hd_entry - 405 

164 Goto (999,999,999.64,85) (enb$y_hd entry - 60) 

1644 Goto (999,999,999,999,999,96,97,98,99,100 ) (emb$w_hd_entry - 90) 

1645 Goto (1015 (emb$w_hd_entry - 100) 

iene Goto (999,112) (emb$w_hd_entry - 110) 

1648 Return 

1649 

1650 

193) ; DEVICE ERROR, TIMEOUT, and ATTENTION entries 

1888 : Via device class, dispatch to the appropriate device dispatching routine. 

1655 1 Continue ' Device error packet 

1656 96 Continue ! Device timeout packet 

1037 98 Cont inue ! Device attention packet 

102) Device_type = libSextzv (0,8,emb$b_dv_type) 

1661 If ( EMBSB_DV_CLASS .£Q. DC$_DISK ) goto 10000 

1908 If ( EMBSB-DV-CLASS .EQ. DC$_TAPE ) goto 20000 

166 If ( EMBSB_DV_CLASS .EQ. DC$_SCOM ) goto 50000 

1664 If ( EMBSB_DV_CLASS .EQ. DCS_REALTIME ) gore 40000 

1992 If ( EMBSB"DV_CLASS .EQ. DC$_BUS ) goto 50000 

1869 Return 
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f DISKS device dispatching routine. 
4 Via device type dispatch to the appropriate device dependent routine. 
10000 goto ( 


1 10001, !- koe 
1 10002, ! = rk 

1 10003, ! = rp04 
1 10004, ! = rp05 
1 10005, ! = rpd 
1 10006, ! = rm0 
1 10007, ! = rp07 
1 999, ! = return 
1 10009, ! = rl01 
1 10010, ! = rl02 
1 10011, ! = rx0 
1 10012, ! = rx0 
1 10013, ! = rm80 
1 10014, ! = tu58 
1 10015, ! = rm05 
1 999, ! = ¢x01 
1 10017, ! = mli1 
1 10019 


! = rb80 

' The ra80, ra8i, ra60 

i rc25, and rcf25 are logged 

! as Lognessage entries and will 
! be output by that brief code. 


1) Device_type 


Return 
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1713 ‘ RK611 device dependent routine 

1518 C Set up the brief and cryptic call parameters and go call the 
ae ; brief/cryptic routines. 

rie 10001 = continue 

1718 10002 eriet te = 12 

1719 rief_P35 = Zloc(EMBSL_DV_REGSAV(0)) 

1730 Brief_P4(1) = 4 

1721 Brief P4(2) = Zloc(rk_reg_herald) 

1756 Cryp_P2 = 16 

17 Dhead_P2(1) = 9 

lise Dhead_P2(2) = Zloc ("UBA RK611') 

1758 Goto 1000 

14 

1798 : RP 4,5 and 6 device dependent routine 

1731 C Set up the brief and cryptic cali parameters and go call the 
1738 : brief/cryptic routines. 

te 10003 continue 

1735 10004 continue 

1738 10005 continue 

1738 10007 Brief_P2 = 12 

1739 Brief_P3S = Zloc(EMBSL_DV_REGSAV(7)) ! Drive_CS1 
1740 Brief_P4(1) = 4 

1741 Brief P4(2) = Zloc(reg_herald1) 

Ho Cryp_P2 = 16 

174 Dhead_P2(1) = 7 

Hoy: Dhead_P2(2) = Zloc (*MASSBUS') 

1746 Goto 1000 

1747 

1748 

He 4 ; RM 03,05 and 80 device dependent routine 

1751 C Set up the brief and cryptic call parameters and go call the 
1736 : brief/cryptic routines. 

1736 10006 continue 

1732 1001 continue 

1789 10015 Brief_P2 = 12 4 

1758 Brief_P35 = Zloc(EMBSL_DV_REGSAV(7)) ! Drive_CS1 
1759 Brief_P4(1) = 4 

1760 Brief _P4(2) = Zloc(reg_herald2) 

1761 Cryp = 16 

1766 Dhead_P2(1) = 7 

176? Dhead_P2(2) = Xloc (*MASSBUS') 

1765 Goto 1000 

1766 
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176? f RL 01 and 02 device dependent routine 

1768 C pet up the brief and cryptic call parameters and go call the 
1ir0 : brief/cryptic routines. 

ire 10009 continue 

177 

1774 10010 Briel te = 4 

1775 Brief_P5 = %loc (EMBSL_DV_REGSAV(0)) 

1776 Brief_P4(1) = 4 

1777 Brief _P4(2) = Zloc(rl_reg_herald) 

1778 Cryp_P2 = 16 

1779 Dhead_P2(1) = 8 

1780 Dhead_P2(2) = Zloc ("UBA RL11") 

18 Goto 1000 

178 

1784 

1783 : RX02 device dependent routine 

1787 C Set up the brief and cryptic call parameters and go call the 
1788 C brief/cryptic routines. 

170 10011 Continue 

176 10012 Reg_copy(1) = EMBSL_DV_REGSAV(0) ' rx2_cs 
179 Reg_copy (¢} = EMBSL_DV_REGSAV(1) ! rxd_es 
1794 Reg_copy(3) = LibSextzv(0,16,extended_registers(1)) 
1795 Reg_copy(4) = LibSextzv(16,16,extende _registers(1)) 
1796 Reg_copy(5) = Lib$Sextzv(0 {6,extended registers(2)) 
1 Reg_copy(6) = LibSextzv(16, 16,extended_registers(2)) 
1799 Brief_P2 = 6 

1800 Brief_P3 = Zloc(Reg_copy) 

1801 Brief_P4(1) = 5 

1802 Brief _P4(2) = Zloc(rx_reg_herald) 

1803 Cryp_P2 = 16 

1804 Dhead_P2(1) = 9 

1? Dhead_P2(2) = Xloc (*UBA RX211") 

1807 Goto 1000 

1808 
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1808 : TUS8 device dependent routine 

13) C Set up the brief and cryptic call parameters and go call the 
1318 ; brief/cryptic routines. 

1814 10014 Brief_P2 = 

1815 Brief_ 7 = Llo y hastens. DV_REGSAV(2)) ! RCSR 

1816 Brief_P4(1) = 

1817 Brief_ PG (2) = Zloc(dd_reg_herald) 

1818 Cryp_P2 = 16 

181 

1820 C : 

\s 1 3 Determine whether there is a node name logged. 

1898 : Search device name string for a '$'. 

1825 I = LIBSLOCC (emb$t_dv_name,'S') 

1826 

1827 C 

1828 C If_a node name was logged account for and determine whether this 
1363 : tus8 entry is for the console tu58. 

1831 If (1 Ae 0) then 

1836 a (emb$t _dv_name((1+1):3) .eq. "CSA') then J = 1 
1834 ~ fe Cemb$t_dv_name(1:3) .eq. ‘'CSA') then J = 1 

1835 Endif 

1836 

1837 C 

Ht 3 Indicate whether this entry was for a console tu58 or uba tu58. 
1840 If (J .EQ. 1) then 

1841 Dhead_P2(1) = 12 

1g Dhead_P2(2) = Zloc ("CONSOLE TU58") 

1844 Dhead_P2(1) = 8 

1845 Dhead_P2(2) = Xloc ("UBA TU58") 

1846 Endif 

1847 

1848 Goto 1000 

1849 

1850 

1338 : ML11 device dependent routine 

1883 C Make a boquent Tet copy of the device registers. Set up the brief 
1838 : and cryptic call parameters and go cail the brief/cryptic routines. 
1938 10017 Reg_ copy(0) = EMBSL_DV_REGSAV(8) ' MLCS1 

185 Reg_copy(1) = EMBSL_DV_REGSAV(9) ' MLDS 

1858 eg. ~copy (¢) = EMBSL~DV~REGSAV(10) i MLER 

1859 Reg_copy(3) = pret BV RE eave 13} ! MLAR 

1860 Reg_copy(4) = EMBSL_DV_REGSA Aviles ' MLAS 

1861 Reg_copy(5) = EMBSL_DV_REGSAV(13) ! MLDA 

1366 Reg_ copy (6) = chBSt DV _REGSA AV(14) ! MLOT 

1 Reg_copy(7) = EMBSL_DV_REGSA ¥518) ' MLSN 

1864 Reg_ copy (8) = EMBSL_DV_REGSAV(17) ' MLE1 

1865 Reg_copy(9) = EMBS$L_DV_REGSAV(18) ! MLE2 
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1 Reg_copy(10) = EMBSL_DV_REGSAV(21) MLEE 

1867 Regrcopytli> = EMBSLZDV-REGSAV(S2) i MLEL 

1869 Briet te = 12 

1870 Brief_P5 = os ieeetneds 

1871 Brief-P4(1) = 

1or¢ Brief P4(2) = Zloc(ml_reg_herald) 

187 Cryp_P2 = 16 

1874 Dhead_P2(1) = 7 

130? Dhead_P2(2) = Zloc ("MASSBUS') 

1877 Goto 1000 

1878 
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1878 £ RB 02 and 80 device dependent routine 
et up the brief and cryptic call parameters and go ca e 
1881 C$ th ief and ti Ll t d LL th 
: ¢ ; brief/cryptic routines. 
; : 10018 continue 
1 10019 Brief_ Ps = 7 ; 
188 Brief_P3 = Zlo » eee. dv_regsav(0)) ' Control and status register 
1888 Brief_P4(1) = 
1889 Brief P4(2) = Zloc(rb_reg_herald) 
1990 Cryp_P2 = 32 
1891 Dhead_P2(1) = 5 
1336 Dhead_P eh = Zloc ('RB730') 
189 Brief_32 = 
1894 
Hb 2 Goto 1000 
1 
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1898 f TAPES device dispatching routine. 

1309 : Via device type dispatch to the appropriate device dependent routine. 
1206 20000 ~=continue 

190 

1904 9° 8 ( 

1905 le ' = tel 

1906 1 oe ! = tué 

1907 1 " ' = tu7 

1908 1 204, ! = tsil 

1909 1 205 ! = tu78 

1910 1) Device_type 

1911 

13\§ Return 

191 

1914 

Hb a : TE16, TU4S, TU77 device dependent routine 

1917 C Set up the brief and cryptic call parameters and go call the 
1918 C brief/cryptic routines. 

1919 C 

1920 201 Continue 

138) 202 Continue 

1993 203 Brief_P2 = 10 , 
1924 Brief_P3S = Zloc (EMBSL_DV_REGSAV(7)) ! Drive_Cs1 
1925 Brief_P4(1) = 4 

1926 Brief P4(2) = Zloc(tape_reg_herald) 

1927 Cryp_P2 = 16 

1928 Dhead_P2(1) = 7 

1363 Dhead_P2(2) = Zloc (*MASSBUS') 

1931 Goto 1000 

1938 

bt : TS11 device dependent routine 

1935 C Set up the brief and cryptic call parameters and go call the 
1338 : brief/cryptic routines. 

1938 204 Reg_copy(0) = EMBSL_DV_REGSAV(0) ! TSBA 
1939 Reg_copy(1) = EMBSL_DV_REGSAV(1) ' TSSR 
1940 Reg_copy(2) = msg_buf(3) ' Xstato 
1941 Reg_copy(3) = msg_buf (4) ! Xstatl 
1oe6 Reg_copy(4) = msg_buf(5) ' Xstat 
194 Reg_copy(5) = msg_buf (6) ' Xstat 
Pr: eg_copy(6) = msg_buf(2) ! Rbpcr 
1946 Briet Pe = 7 

1947 Brief_P5 = Zloc(Reg_copy) 

Hb oy | Brief_P4(1) = 6 

194 Brief_P4(2) = Zloc(ts_reg_heraid) 

1950 Cryp_P2 = 16 

1951 pheod Pot}? = 8 

1336 Dhead_P2(2) = Zloc (‘UBA TS11") 

1954 Goto 1000 
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BRIEF _C_DISPATCHER 


U78 device dependent routine 
et up the brief and cryptic call parameters and go call the 
ef/cryptic routines. 
Brief_P2 = 17 
Brief_P3 = Zloc(emb$l_dv_regsav(7)) 
Brief_P4(1) = 6 
Brief P4(2) = Zloc(mf_reg_herald) 
ryp_P2 = 16 
Dhead_P2(1) = 7 
Dhead_P2(2) = Xloc ("MASSBUS') 
Goto 1000 
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C 
: SCOM (synchronous communications) device dispatching routine. 
C 


VAX=11 FORTRA 


DISKSVMSMASTE CJB_C_DISP.FOR;1 


Via device type dispatch to the appropriate device dependent routine. 


0000 continue 


999, ! = use other dispatcher 

1 999, ! = use other dispatcher 
1 303, ! = dupi1 (3271) 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 307, ! = sbil 
1 999, ' = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 999, ! = use other dispatcher 
1 318 ! = KMS3271 
1) Device_type 
Return 

: DUP11/3271 device dependent routine 

C Set up the brief and cryptic call parameters and go call the 

: brief/cryptic routines. 

303 If ( Report_type .EQ. ‘C* ) Return 
Briet Pe = 5 
Brief_P35 = Zloc (EMBSL_DV_REGSAV(1)) ' PARCSR 
Brief_P4(1) = 5 
Brief_P4(2) = Zloc(dup_reg_herald) 
Dhead_P2(1) = 
Dhead_P2(2) = Zloc (*UBA DUP11") 
Goto 1000 


$B11 device dependent routine 


C 

: 

C Make a sequent {al copy of the device registers, Set up the brief 
and cryptic call parameters and go call the brief/cryptic routines. 


07 Reg_copy(0) = LIBSEXTZV (0,8,EMBSL_DV_REGSAV(1)) ! registers 
Reg_copy(1) = LIBSEXTZV ( EMBSL_DV_REGSAV(1)) 
Reg_copy(¢) = LIBSEXTZV (16,8 ENBSC_DV_REGSAV(1)) 
Reg-copy(3) = EMBSL_DV_REGSAV(0) ! err_sts 


-— oo SS 
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| BRIEF _C_DISPATCHER 18-sep-19 4 $929 :0% VAX-11 FORTRAN V3.4-56 Page 24 
5-Sep-1984 13:49:41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR;1 
81 BriefiPs = floc 
rie = Zloc(reg_co 
O84 cries? 
0 Brief P4(2) = Zloc(sb_reg_herald) 
0 Cryp_P2 = 32 
035 Dhead_P2(1) = 15 
0 head_P2(2) = Zloc ("UBA DEC DATAWAY') 
037 rief_32 = 1 
O38 6 
039 Goto 1000 6' 
040 6' 
041 C 6' 
ok : KMS3271 device dependent routine 6' 
044 € Set up the brief and cryptic call parameters and go call the 4 
045 C brief/cryptic routines. 6' 
046 4 re 
047 é 
048 Brief_p2 = 10 6 
049 Brief_p3 = %LOC(emb$l_dv_regsav(0)) re 
050 Brief_p4(1) = 5 6; 
33) ogg apse) = BL ZLOC (kms3271_reg_herald) ‘ 
r = 
088 Dhead-p2(1) = 11 6 
034 Dhead=p2(2) = ZLOC(*UBA KMS3271") 
056 Goto 1000 
057 


MMToroTonorerosfronnenononn 
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2096 C Make a sequential copy of the device registers. Set up the brief 


| 
1 
BRIEF _C_DISPATCHER 15-sep-1984 $9'29:0% VAX-11 FORTRAN ¥2 68-26 Page 25 
| =Sep-1986 13:49:41  DISKSVMSMASTER: LERF.SRCIB_C_DISP.FOR; 1 
038 C f 
$28 : REALTIME device dispatching routine. 
sd ¢ Via device type dispatch to the appropriate device dependent routine. | 
068 40000 continue | 
0664 
065 oto ( 
066 401, ! = pall 
067 1 402, {- ar 700 
068 1 403, ! = dr750 
069 1 404, ' = drilw 
070 1 405, ! = pcelll (receiver) 
071 1 406, ! = pclil (transmitter) 
207 1 999, ! = spare 
207 1 408 ! = dt07 
2074 1) Device_type 
2075 
2076 Return 
2077 
sore : LPA11K device dependent routine 
2080 C Set up the brief and cryptic call parameters and go call the 
soe: : brief/cryptic routines. 
208 401 Brief_P2 = 4 
20 Brief_P3 = X%loc(EMBSL_DV_REGSAV(0)) ! CNTRL_MAINT 
2085 Brief_P4(1) = 4 
$8 Brief P4(2) = Zloc(lpa_reg_herald) 
2087 Cryp = 16 
0 Dhead_P2(1) = 10 
sO Dhead_P2(2) = Zloc ("UBA LPA11K') 
2091 Goto 1000 
2092 
2093 ; 
2094 C DR780 dev.ce dependent routine 
2095 C 
sade : and cryptic call parameters and go call the brief/cryptic routines. 
099 402 Reg_copy(0) = EMB$L_DV_REGSAV(0) ' DR_CR 
100 eg_copy(1) = EMBS$L_DV-REGSAV(1) i DRTUTL 
101 eg_copy (2) = EMBSL_DV~REGSAV(5) i DRTBA 
102 Reg_copy(3) = EMBSL~DV~REGSAV(16) i DRTSL | 
103 Reg_copy(4) = EMBS$L_DV_REGSAV(9) ' DR_CA(1) 
210% Reg_copy(5) = EMB$L_DV_REGSAV(10) i DRICAC2) 
$100 Brief_P2 = 6 
2107 Brief_P3 = Zloc(Reg_copy) 
2108 Brief_P4(1) = 4 
2109 Brief _P4(2) = Zloc(dr780_reg_herald) 
110 Cryp_P2 = 32 
111 Dhead_P2(1) = 4 
i's Dhead_P2(2) = Zloc (*DR32") 
at Brief_32 = 1 


rc 
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Page 
-Sep- DISKSVMSMASTER CJ8_C_DISP.FOR; 


a Goto 1000 
139 
11 


-——— 


—— 


Goto 1000 


CL11R device dependent routine 


P 
Soy up the brief and cryptic call parameters and go call the 


C 
c 
; rief/cryptic routines. 
4 


0 


ww 
@ 
7 
~. 
® 
= 
a 
v 
" 


(EMBS$L_DV_REGSAV(0)) ! RCR 


6 
Brief_P3 = ny | 
* Zloc(pcllir_reg_herald) 
2 
z 


) 
) 
1 20 
) loc ("UBA PCL11 (RECEIVER)') 
Goto 1000 


1 
BRIEF _C_DISPATCHER 1S-sep-19 4 $979: VAX=11 FORTRAN Paes Page 27 
-Sep-1984 13:49:41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR;1 
118 £ DR750 device dependent routine 
120 C Make a 5 ryeed tw copy of the device registers. Set up the brief 
; 1 : and cryptic call parameters and go call the brief/cryptic routines. 
1 : 403 Reg_copy(0) = EMBSL_DV_REGSAV(0) ! DR_DCR 
2124 eg_copy(1) = EMBSL_DV_REGSAV(1) ' DR_UTL 
$1 5 Reg_copy t#) = EMBSL_DV_REGSAV(5) ! DR_CMI_ADR 
126 Reg_copy(3) = ate Ad AL ' DR_WCS_ADR 
ig Reg_copy(4) = EMBSL_DV_REGSAV(3) ' DR_WCS_DAT 
} : Reg_copy(5) = EMBSL_DV_REGSAV(8) ! DR_OSL 
146 Brief_P2 = 6 
$13 Brief_P3 = Zloc(reg_copy) 
136 Brief_P4(1) = 
21 Brief P4(2) = Zloc(dr750_reg_herald) 
2134 Cryp_P2 = 32 
$13? Dhead_P2(1) = 4 
136 Dhead_P2(2) = Xloc ('DR32") 
2137 Brief_32 = 1 
2138 
2139 Goto 1000 
2140 
2141 
$ic¢ f DRI1W device dependent routine 
2144 C Set up the brief and cryptic call parameters and go call the 
2145 C brief/cryptic routines. 
2146 C 
2147 = 404 Brief_P2 = 5 
2148 Brief_P5 = ZLOC (emb$l_dv_regsav(0)) 
2149 Brief_P4(1) = 4 
2150 Brief _P4(2) = ZLOC (drilw_reg_herald) 
$12) Cryp_P2 = 16 
152 Dhead_P2(1) = 9 
$127 Dhead_P2(2) = ZLOC (*UBA DR11W") 
2155 
2156 
2157 
158 
159 
160 
yd 
163 
164 
165 
166 
167 
2168 
216 
17 
17 
17 
17 
17 
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C PCL11T device dependent routine 
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BRIEF _C_DISPATCHER 15-Sep-1984 oH 59:04 
5-Sep-1984 13:49:41 
C 
C Set up the brief and cryptic call parameters and go call the 
; brief/cryptic routines. 
406 Brief_P2 = 7 
Brief_P3 = Zloc(EMBSL_DV_REGSAV(0)) ! TCR 
Brief_P4(1) = 6 
Brief P4(2) = Zloc(pcliit_reg_herald) 
Cryp_P2 = 16 
Dhead_P2(1) = 23 
Dhead_P2(2) = Zloc ("UBA PCL11 (TRANSMITTER) ') 
Goto 1000 
C UNUSED 


407 Return 


T07 device dependent routine 


D 
Set up the brief and cryptic call parameters and go call the 
brief/cryptic routines. 


LOOOOO 


08 If ( Report_type .—Q. 'B" ) then 


call dheadi (Lun,*UBA DT07') 
call Linchk (lun,2 
call ucb$$b_bs_errmsg (lun,ucb$b_bs_errmsg) 


call brief16 (lun,(2),ucb$l_bs_cur,dt07_reg_herald,emb$t_dv_name, 
1 emb$w_dv_unit) 


FARE LSSSLESRANVLSSELFARFASLSSSVSS 
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: 
; 
: 
2 
: 


07 

oS Else 

10 call cryptk (lun,16,(2),ucb$l_bs_cur,dt07_reg_herald, 
11 1 emb$t_dv_name,emb$w_dv_unit? 

\¢ Endif 

1 

14 Return 

15 

16 

17 


VAX=11 FORTRAN 
ER 


4-56 Page 28 
DISKSVMSMAST F.SR - 


RF..SRCJB_C_DISP.FOR;1 


7 call logger (lun,*DEVICE ATTENTION’) 
7 call Linchk (lun,6) 


[ioe ' 

BRIEF _C_DISPATCHER 18-se =1984 23:59:04 VAX-11 FORTRAN V3.4-56 Page 29. BR 
=300 71382 43:29 ;01 DISKSVMSMASTER: CERF .SRCIB_C_DISP.FORS 1° 
18 C 
13 : BUS device dispatching routine. 
st : Via device type dispatch to the appropriate device dependent routine. 8 
5 50000 continue ‘ 
5 oto ( 
6 501, !- ¢ 1780 8 
7 1502, i = ci75 8 
228 1503, | = uda50 8 
$2¢9 1504, ! = ud 308 8 
0 1999; ji - ree 8 
$53) By 8 
evice e 
2038 typ 8 
Return 8 
3 
stt4 : C1780/C1750 device dependent routine ; 
$536 C Set up the brief and cryptic call parameters and go call the 8 
sso : brief/cryptic routines. : 
2349 501 Continue 8 
3243 502 Cont inue ; 
$see If ( Report_type .—Q. 'B' ) then ; 
2247 call header (Lun) 8 
3248 call Logger (Lun, "DEVICE ATTENTION’) 8 
$$ep call padriver_attention_error_code (lun,padriver_error_type_code) : 
251 call brief32 (lun £6) -penfor ci_reg_herald, 8 
33¢ 1 ‘embSt_dv_name,emb$w_dv_unit) 4 
5535 Else : 
256 call cryptk (Lun. 32. (6) .pcntgr .ci_reg_herald, 8 
257 1 _emb$t_dv_name,emb$w_dv_unit 8 
258 Endif 8 
259 8 
260 Return 8 
7 
268 : UDASO device dependent routine : 
265 C Set up the brief and cryptic call parameters and go call the 8 
3367 C brief/cryptic routines. 4 
503 If ( Report_type .£Q. ‘B" ) then 

2 i 504 Continue 9 
71 call header (lun) 9 
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5001 


a] 
59: 
-$ep-1984 15:49: 
Goto (5001, 5002, 5003, 5004, 5005) code_word 
write(lun,5210) emb$t_dv_name(1:emb$b_dv_namlng) ,emb$w_dv_unit, 
1‘, “PUDRIVE . 


VER'' CODE #',Code_word,'. 
Goto 5007 
Message = init // 


comp 
Length = len (init) + Len (comp) 
Goto 5006 


Message = init // fail 
Length = Len (init) + Len (fail) 
Goto 5006 


Message = bus_msgi 
Length = Len Tbus_msg1) 
Goto 5006 


Message = bus_msg2 
Length = len Tbus_msg2) 
Goto 5006 


Message = bus_msg3 
Length = Len Tbus_msg3) 


yt Stotian. sete) emb$t_dv_name(1:emb$b_dv_namlng) ,emb$w_dv_unit, 
essage 

format(7* °,'''DSA’' PORT SUB-SYSTEM, UNIT _*,a<emb$b_dv_namLng>, 
1 i<compress4 (LibSextzv(0,16 emb$w_dv_unit))>,':',:a, 

1 :i<compress4 (LibSextzv(6,16,code-word))>,:a<length>) 


write(lun.5215) *SA* “PSTEP1", "HSTEP1', "PSTEP2',"HSTEP2', "PSTEP3", 
1 ‘HSTEP3 , PSTEP4' HSTEP4' 
format(/' ,t8,a,t15,a,t22,a,t29,a,t36,a,t43,a,t50,a,t57,a,t64,a) 


write(lun,5220) yee. 


sa,(initialization_handshake(i),i = 1,8) 
format(/" ',t8,24.4,8( *,24.4)) 


endif 


Return 
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18 f MACHINE CHECK entries 
3 Output the cryptic report for the above entries. 
¢ 2 If ( Report_type .—Q. ‘C* ) Return ! Mach. check packet 
4 Call fretof (lun) 
5 Call header (lun) 
$ Call logger (lun,"MACHINE CHECK") 
3 Return 
$ 3 : SB1 fault and ASYNC WRITE ERROR entries 
2332 3 Output the cryptic report for the above entries. 
33 4 Continue ! Sol fault packet 
$82 7 Continue ! SBI async write packet 
2337 If ( Report_type .£Q. ‘'C* ) Return 
tte Call header (Lun) 
3341 Cpu_type = LibSextzv(24,8,emb$l_hd_sid) 
2348 i' t 255 
C e .eq. 
gs Peay 
cpu e .eq. 
a3 eee 
cpu e .EQ. 
2549 1 }’then’ 
att If Cemb$w_hd_entry at P 7) then 
$326 Call logger (lun,"ASYNCHRONOUS WRITE‘) 
$327 ag 2 l (L SBI FAULT) 
a ogger (lun,' , 
5355 ENDIF. 
2356 
i rt4 else if ( cpu_type .eq. 2 ) then 
2359 if Cemb$w_hd_entry .eq. 7 ) then 
1 call logger (lun, WRITE BUS ERROR") 
¢ endif 
endif 
rH RETURN 
i, 
$97 C 
359 ¢ UBA INTERRUPT entries 
36 ; Output the brief and cryptic reports for the above entry type. 
$304 
| 


BRIEF _C_DISPATCHER 1b-5e =1984 23:59:04 K-11 FORTRAN V3. 4-56 
~geR7 1380 $9:28:04 SVMSMASTER: TERE ,S8CIB_C_DISP.FORTI@® 


75 9 If ( ( Report. st7pe -£Q. "B' ) then 
8 Fatt logge ¢ (tun, “DW'’ INTERRUPT") 
ue call brief32 (lun, (6) ,uba_csr,uba_reg_herald,tr,adapter_tr) "4 
30 nGatt cryptk (lun,32,(6) ,uba_csr,uba_reg_heraid,tr,adapter_tr) 5. 
wall j 
34 ; 
84 
5 C : 
c UBA ERROR entries ° 
5 3 Output the brief and cryptic reports for the above entry type. 0: 
a 11 If (R -E9. °B* ) th 0: 
eport_type _— then 
é 9 Call peadde’ Tlunl 
9 Call Logger (Lun,''’DW'' ERROR") 
S3o¢ A brief32 (lun, ‘1 Hy csr,"UBA CSR',*UBA',0O) 
se 
96 Call cryptk (lun,32,(1),uba_csr,"UBA CSR*,‘UBA',0) 
97 Endif 
398 Return 
444 
400 
2401 C 
40 C MBA INTERRUPT entries 
40 C 
404 C 
3406 C 
406 
407 12 If ¢ Report. type =fe. "B’ ) then 
Call header (Lun) 


S& 


Call Logger (Lun, **'RH"' INTERRUPT‘) 
att brief32 (lun, (6),rh780_control_register,reg_herald,TR, 
1 aeapeer, tr) 


Call cryptk (lun,32,(6),rh780_control_register,reg_herald,TR, 
; naieeer- tr) 


Return 


RoronoRonononononony 
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Output the brief and cryptic reports for the above * cry type. 
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rat £ SYSTEM START-UP and SYSTEM POWER FAIL RECOVERY entries 
? , C Output the brief report for the above entry types. 
4 ¢ 32 Cont inue ! system start-up 
r ? 6 Continue i system power fail recovery 
"1 2 Call header (lun) 
427 If Cemb$w_hd_entry 129202 then 
428 Call logger (lun. 3 é1hA trART uP") 
429 Else if (emb$w_hd aentry 509, 36 ) then 
4 Call logger Tlun,"POWER-FAIL RESTART") 
431 Endif 
4 ¢ Return 
4 
434 
"i 5 ‘ SYSTEM POWER FAIL entries 
mt C Output the brief report for the above entry type. 
3239 $4 Call header (tun) ! pyytee power fail 
440 Call logger (lun, "SYSTEM POWER- FAIL") 
re Return 
ar : NEW-FILE CREATION and TIME STAMP entries 
seie : Output the brief report for the above entry types. 
2447 35 Cont inue ! ocrles. sys created 
sees 38 Cont inue ! time stamp 
sees Call header (Lun) 
245 If (emb$w_hd_entry 109. 3 then 
245 Call logger og aoc. s¥S BGREATED") 
454 Else if (emb$w_h a if ther 
455 Call Logger tune tH ES anb® } 
456 Endif 
457 
458 Return 
459 
re : BUGCHECK entries 
ve C Output the brief report for the above entry types. 
464 , Continue ' fatal bugcheck 
465 40 Cont inue ' non-fatal bugcheck 
“38 112 Cont inue ! user bugchec 
468 910 format(/* * ,<bugmsg_len th>al) 
my 912 format(/* *.¢8, bugcheck code',t28,2z2.2) 
471 Call header (lun) 
y ee 
474 If (emb$w_hd_entry .eq. ‘25'x) then 
} 


sss -_ - 


1 
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475 Call Logger (Lun, "FATAL BUGCHECK") | 
47 I = 14 
47 Else if (emb$w_hd_entry .eq. '28'x) then 
ore Call blogger (Tun; *NON=FATAL BUGCHECK') 
4 Else if Cemb$w hd_entry .eq. *x) then 
4 call logger (Tun; "USER BUGCHECK') 
481 Endif 
i 
rtf Call cstring (emb(i+bugchk_code) , ZREF (bugmsg_text) ,bugmsg_length) 
4 If (bugmsg_length .ne. 0) then 
aR Call tinehk (tun,3) 
488 ptr itetlun,910) (bugmsg_text(k:k),k = 1,bugmsg_ length) 
e 
490 Call Linchk (Llun,2) 
491 Write(lun,912) (emb(i+tbugchk_code+k),k = 1,0,-1) 
3 Endif 
49 
494 Return 
ret 
se : MESSAGE (S$SNDERR, OPERATOR, and NETWORK) entries 
r}+4 : Output the brief report for the above entry types. 
$204 39 Cont inue ! $snderr message 
50 41 Continue ! operator message 
33? 42 Cont inue ! network message 
44 Call header (lun) 
507 If (emb$w_hd entry .eq. 39) then 
ry Call logger Tlun,*SSNDERR MESSAGE") 


Else if (emb$w_hd_entry .eq. 41) then 
Call logger (lin,*OPERATOR MESSAGE ') 


Else if (emb$w_hd_entr oe 42) then 
Call logger (lUn,*NETWORK MESSAGE ') 
Endif 

Call Linchk (Llun,3) 


Write(lun,2605) 
2605 Format(/* *, "MESSAGE TEXT',/) 


If (emb$w_ss_msgsz .ne. 0) then 
bo 2et2,' = 0, (emb$w_ss_msgsz/56) 


NOUEWN —OOONOUE WN —O 


Call Linchk (lun,1) 
Write(lun,2610) (emb$t_ss_msgtxt(max(1,j): 
1 (j + min(55,emb$w_ss_msgsz - j)))) 

2610 Format(" °,1T8,A) 


PUPP PDP PSI 
POPRMNINNUNINS 4 ee 
oo 


— 


| 1 
Pet Seton mag 1B Sep-1 964 3:23:27 | DERKSUMSRASTER:TEAP-ohcIB_c_pisP.roReie” > 
2615 Continue 
Else 


5 
Call Linchk fhun. 1) 
wr tS Calas ) 
2620 Format(' °,18,*CNONEJ') 

Endif 

40 

541 Return 

542 


———————_———————— LL 


ro 


| 
| 
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re £ MOUNT/DISMOUNT entries 

rf : Output the brief and cryptic reports for the above entry type. 
<3 64 Continue 

e78 65 Continue 

49 

550 wees 

551 C Neither mount nor dismount entries are supported for a cryptic 
226 : report so return to the calling routine. 

$84 If (report_type .€Q. ‘C*) return 

228 4 MOUNT ENTRY 

$38 : Ensure the volume Label is not more then 12 characters in Length. 
560 If (.NOT. STRSTRIM (emb$t_vm_Label,emb$t_vin_label, 

5e¢ 1 embSt_vm_label_length)) then 

56 


Emb$t_vm_label_length = 12 
Endif 


Call the ‘mount volume’ routine to record this entry in the volume 
Label queue. 


Call HEADER (Lun) 


OOO 


If (volume_output) then 
If (emb$w_fd_entry .£Q. 64) then 


Call LABEL (1,emb$\_hd_sid,emb$b_vm_namlng,emb$t_vm_name, 

1 emb$w_vm_unit ,embSt_vm_Label,emb$T_vm_oprcnt,emb$l_vm_errcnt) 
C 
: Construct and output the entry header 


Call LOGGER (Lun,*MOUNT VOLUME") 
Call LINCHK (Lun,4) 


PUP APPA AAA AA VIIA IIT 


SELSSEAV LS SELEALAVALSSSVSARANASSELIEF 


C 
: Output the entry information. 


Write(Lun,10) emb$t_vm_name,emb$w_vm_unit, 
1 emb$t_vm_lLabel(1:emb$t_vm_label" length) 
10 format(7' *,t8,*UNIT _',a<emb$b_vm_naming>, 
: i<compressé (LibSexEzv(0,16,emb$u_vm_unit))>,*:, VOLUME LABEL ‘"',a, 


POPIPONININIPININININIPIPIPIPININININPIPINIP PoP nonsnononononofnonofonys 


Write(Lun,15) emb$l_vm_oprcnt,emb$l_vm_errcnt 
15 format(* *,t8,i<compress (emb$l_vm-oprcnt)>, 
1 '. Q10 OPERATIONS THIS UNIT, *,i<compress4 (emb$l_vm_errcnt)>, 
1°. ERRORS THIS UNIT") 


PUPP PP APPA AAA AISA 


RoPonononorny 


C DISMOUNT ENTRY 


" 
| 
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ARARAARAAAA AAAS o 
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Se 


FFFF 
no 
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=3op- 188d F8i29 341 
Determine if this is a dismount entry and a brief report is selected. 
Initialize some counts and call the ‘dismount volume’ routine to 


search the volume Label queue for a matching mount entry. (Mount operation 
and mount error count will be returned if entry found). 


Else if (emb$w_hd_entry .£Q. 65) then 


Call LABEL (2,emb$l_hd_sid,emb$b_vm_naming,emb$t_vm_name, 
1 embSw_vm_unit,embSt_vm_label,embST_vm_oprcnt,emb$l_vm_errcnt) 


OOOO 


Mount_operation_count = <1 
Mount_error_count = =1 


Call DISMOUNT VOLUME (2,emb$l_hd_sid,emb$b_vm_namlng,emb$t_vm_name, 


1 emb$w_vm_unit ,emb$t_vm_Label ,mount_operation_count, 
1 mount_error_count) 


C 
3 Construct and output the entry header. 


Call LOGGER (Lun,*DISMOUNT VOLUME") 
Call LINCHK (Lun,4) 


OOo 


Output the entry information. 


Write(lun,10) emb$t_vm_name,emb$w_vm_unit, 
1 emb$t_vm_Label(1:embSt_vm_label_ length) 


Write(lun,15) emb$l_vm_oprcnt,emb$l_vm_errcnt 


C 
C Determine if a matching mount — was found by oe the mount 
C operation and mount error counts. If an entry was found then update 
: the volume counts. 

If ¢ 

1 mount_operation_count .ne. -1 


1 6 
1 mount_error_count .ne. -1 
1) then 


Volume_operation_count = emb$l_vm_oprcnt - mount_operetion_count 
Volume_error_count = emb$l_vm_errcnt = mount_error_count 


C 
C Via the volume operation and mount counts determine whether to output 
3 them for the report. 


If (volume_operation_count) g0 50,50 
50 If (volume“error_count) 60,55,55 


55 Call LINCHK (Lun,1) 


Write(lLun,56) volume_operation_count,volume_error_count 
56 format(* *,t8,i<compress4 (volime_operation_count)>, 


Pa 
CIJB_C_DISP.FOR;1 


01: 
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Return 


-Sep-19 49:41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR; | 

657 1 *. Q10 OPERATIONS THIS VOLUME, ',i<compress4 (volume_error_count)>, | 
658 1 *, ERRORS THIS VOLUME’) | 
659 Endif 
660 Endif | 
661 | 
O66 Else ! volume output = false | 
$oee if (emb$w_hd_entry .EQ. 64) then | 
2666 Call MOUNT_VOLUME (1,emb$L_hd_sid,emb$b_vm_naming,emb$t_vm_name, 

soot 1 emb$Sw_vm_unit,emb$t_vm_labeT,emb$l_vm_oprcnt,emb$l_vm_errcnt) 

es Else if (emb$w_hd_entry .£Q. 65) then 

2671 Call DISMOUNT VOLUME (2,emb$l_hd_sid,emb$b_vm_naming,emb$t_vm_name, 

2672 1 emb$w_vm_unit ,emb$t_vm_Label ,mount_operation_count, 

2673 1 mount_error_count) 

2674 Endif 

2675 Endif 


> 
pp pp AN ee a aw ee We 
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2 
1B-sep-1986 24:59:04 
UNDEFINED INTERRUPT entries 


C 

680 C 

es £ Output the brief and cryptic reports for the above entry type. 
7 


6 

ess Continue ! undefined interrupt 

28? If (report _type .€Q. ‘'C') return 

re Call B_LUNDEFINED (Lun) 

8 Return 

689 

$30 : LOGSTATUS entry 

25 : Output the brief and cryptic reports for the above entry type. 
o8e 99 Continue ! Log status packet 

696 If ( Report type -EQ. 'C* ) Return 

697 Call header (lun) 

698 Call logger (lun, ‘ERLSLOGSTATUS ENTRY’) 

699 Call dhead2 (lun, ‘1/0', emb$b_sp_naming, emb$t_sp_name, 
700 1 emb$w_sp_unit 5 

701 C Call rollup 
2702 Return 


oO 
w 


27 
2704 
si? : LOGMESSAGE entry 
3107 : Output the brief and cryptic reports for the above entry type. 
3709 100 If ( Report_type .£Q. 'C* ) Return ! Log message packet 
c 
ah c Functional description 
C 
$718 c This section provides dispatching for entries logged by erl$logmessage. 
site c Dispatching is done by emb$w_\lm_msgtyp. 
c 
srg 
At Goto (21,22,23,24,25,26,27,28) emb$w_lm_msgtyp 
720 Tof = 1 
721 Writel = 1 
1s¢ Goto 1010 
724 21 Exit! = 1 ! Disk messages 
1S? Goto 1010 
727 22 Exitl = 1 ! Tape messages 
728 Goto 1010 
4 7 
731 23 Call brief_padriver_logmessage (lun) ! CI port 
g Return 
7 24 Call brief_pudriver_mscp_dispatcher (lun,reccnt) ! UDA port 


2735 Return 


P 
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ge 39. 


Q 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


MMVMNMNMNNMNMNINNNINNNNNINNT 


i la ae ae ee 


2 
BRIEF _C_DISPATCHER 1B-se =1984 23:59:04  VAX-11 FORTRAN V3.4-56 Page 40 
~3007 1382 $3:29:9% DISKSVMSMASTER: CERF .SRCIB_C_DISP.FORS1® 
7 
737 25 tof = 1 ! Available attention ms 
738 Linchk.P2.= 2 ° 
739 Writel = 0 
740 Message = msgi // atten 
741 Length = Len(msgi) + Len(atten) 
i Goto 1010 
744 26 Tof = 1 ! Duplicate unit ms 
745 Linchk_P2 = 2 : “ 
746 Writel = 0 
747 Message = mage // atten 
748 Length = len(msg2) + Len(atten) 
re8 Goto 1010 
2751 27 Exit! = 1 ! Invalid command log ms 
He Goto 1010 °— 
754 28 Tof = 1 ! Access path attention msg 
2755 Linchk_P2 = 2 
2756 Writel = 0 
2757 Message = msg3 // atten 
2758 Length = Len(msg3) + len(atten) 
2759 
2760 
2761 1010 If ( tof .eq. 1) then 
s7oe Call frcetof (lun) 
276 Tof = 0 
2764 Endif 
sree 
766 Call header (lun) 
2767 Call logger (lun, *ERLSLOGMESSAGE ENTRY’) 
2768 Call dhead2 (lun,'1/0°,emb$b_im_naming,emb$t_\lm_name,emb$w_lm_unit) 
2769 If ( exit] .eq. {1 ) then 
2770 Exitl = 0 
2771 Return 
sie Endif 
144 
774 If ( Linchk_P2 .ne. 0) then 
2775 Call Linchk ( lun, Linchk_p2 ) 
776 Linchk_P2 = 0 
777 Endif 
778 
779 
780 If ( Writel .—Q. 1) then 
781 Write(lun,2590) "EMBSW_LM_MSGTYP', (emb$w_lm_msgtyp,i = 1,2) 
$78e 2590 format(/* ',t8,a,t28,246.4,/, 
78 1 t40,a,i<compressé (LibSextzv(0,16,emb$w_lm_msgtyp))>) 
378s Cail dumpreg (lun, ((record_length + 3)/%) = 9,emb(38)) 
7 Else 
789 
788 Write(tun,2510) Ressage 
789 2510 Format(/' *,a<length> 
790 Endif 
791 
Return 
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DISKSVMSMASTER 


utput the brief report for the above entry type. 
01 If (report _type .€Q. ‘'C*) return 


80 Call HEADER (Lun) 
rit Call LOGGER (Lun, "ERLSLOGMSCP ENTRY") 


it if (logmscp_type .eq. 9) then 


793 
794 
795 
es : LOGMSCP (mscp message without ucb) 
CO 
C 
1 
807 Call LINCHK (lun,2) 


808 write(lun,30) ‘UNEXPECTED END MESSAGE ‘'MSCPS$W_STATUS’" 
st 30 format(/' ',t8,a) 
at) else if (logmscp_type .eq. 10) then 
Big Call LINCHK (Lun,2) 
ai8 write(lun,30) "UNEXPECTED ATTENTION CONTROL MESSAGE’ 
Big else if (logmscp_type .eq. 11) then 
818 Call LINCHK (Lun,2) 
819 write(lun,30) "DATAGRAM FOR NON-EXISTING ‘‘UCB’" 
ast endif 
B3¢ return 
8 
ase 
825 
as6 : MEMORY entries 
858 C Output the brief and cryptic reports for the above entry type. 
BS? : Output the entry header. 
831 5 Continue 
S36 6 Continue 
HH 8 Continue 
34 
835 C 
ty C Determine if a summary report should be output. If so, 
tH : execute the necessary code to produce a memory summary report. 
839 
840 If Sipenery panel OR. (all_-summ)) then 
841 Call EXEC IMAGE<xfer_addr,lun,'R') 
Beg Endif 
B44 If (report_type .NE. ‘C*) then 
845 Call HEADER {fini 
ae6 C SBI Alert 
84 If (emb$u_hd entry .£Q. 5) then 
eee Call LOGGER Tlun,*SBI ALERT’) 


3.4-56 Pa 
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DISKSVMSMASTER: CERF .SR 


; Page 42 
RF.SRCJB_C_DISP.FOR: 1° 


: MS780C device dependent routine 
610 If (memory_type .£Q. 0) then 
C 

C 


=. 

850 C Hard ECC 00( 
1 Else if Lonbey hd entry -EQ. 8) then | 0( 

§ Call LOGGER (lun,*FATAL MEMORY ERROR’) 00 

4 C Soft ECC 01: 

5 Else § 

$ geht LOGGER (Lun,"MEMORY ERROR‘) | 5 ; 
858 024 
528 Endif 0 ‘ 
861 C Determine the cpu type. 8 
£66 C i 
86 jJ=0 0 i 
44 Cpu_type = LIBSEXTZV(24,8,emb$l_hd_sid) 8 i 
34] if ( cpu_type .£Q. 255 8 : 
ace 2 cpu.type .£0. 1) then O¢ 
870 C 11/780 cpu 021 
871 C Interpret the information for all controllers in this entry. O2t 
He ‘ Determine the memory type. as 
874 Do 635, I=1, controller goynt 02¢ 
i} Memory_type = LIBSEXTZV™5,3,buffer(2+J)) Oe 


Copy the memory registers into mem_reg_buffer 
Call MOVCS (%val(12),buffer(2+j) ,mem_reg_buf fer) 


C Determine if it should be a brief report. Pass the — registers, 
C register herald and the adapter tr to the brief routine for output. 


If (report_type .£€Q. ‘B") then 
Call BRIEF32 (Lun, (3) ,memory_register_a,ms780c_reg_herald,'TR e 
1 buffer(1+j)) 


Else 


Determine if it should be a register dump report. Pass the memory 
foptoters, register herald and the adapter tr to the brief routine 
or output. 


Call CRYPTK (Lun,32,(3) ,memory_register_a,ms780c_reg_herald,'TR °, 
1 buffer (1+j)) 
Endif 


J=J+4 
Endif 


OOO 


C MA780 device dependent routine | 


907 
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20 If (memory_type .£Q. 2) then 
Copy the memory registers into mem_reg_buffer 
Call MOVC3 (X%val(32) buf fer(2+j) ,mem_reg_buf fer) 


C Determine if it should be a brief report. Pass the ——7 registers, 
; register herald and the adapter tr to the brief routine for output. 


If ‘repers $ype -EQ, "B") then 
Call BRIEF32 (Lun (8) ,po*t_configuration_register,ma780_reg_herald, 
7 IR ',buffer(1+j)) 


Else 


OO Ono 


C Determine if it should be a register dump report. Pass the memory 
C registers, register herald and the adapter tr to the brief routine 
¢ for output. 
Call CRYPTK (Lun,32,(8),port_configuration_register,ma780_reg_herald, 
1 ‘TR ',buffer(1+j)5 
J=J+9 
Endif 


¢ MS780E device dependent routine 
630 If (memory_type .EQ. 3) then 
: Copy the memory registers into mem_reg_buffer 
Call MOVCS (%val(16) ,buffer(2+j) ,mem_reg_buf fer) 


C Determine if it should be a brief report. Pass the —" registers, 
: register herald and the adapter tr to the brief routine for output. 


If (report_type .—Q. ‘B') then 
Call iet3e (Lun, (4) ,memory_register_a,ms780e_reg_herald,'TR ‘, 
1 buffer(1+j)) 


Else 
Determine if it should be a register dump report. Pass the memory 


registers, register herald and the adapter tr to the brief routine 
for output. 


OOOon 


Call CRYPTK (lun,32,(4) ,memory_register_a,ms780e_reg_herald,'TR ‘, 
: eytrersnega 
n 


J=Je5 
Endif 


635 CONT INUE 
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Return 
Else if (cpu_type .£Q. 2 ) ther 
€ m3750 bevice dependent routine 
640 Call MOVCS (Zval(12),memory_registers ,mem_reg_buf fer) 
If (report.type .£Q. 'B') then 


Call BRIEF32 (lun, (3) ,memory_register_O,mem_reg_herald,'SI ', 
1 slot_index) 


Else 


Call CRYPTK (Lun,32,(3),memory_register_O,mem_reg_herald,'SI ', 


1 slot_index) 

Endif 

Return 

Else if ( cpu_type .EQ. 3) then 


1/730 cpu 
MS7350 device dependent routine 


50 Call mOvC3 (Zval(12) ,memory register_0,mem_reg_buffer) 
If (report_type .€Q. 'B') then 


Call BRIEF32 (Lun,(3),memory_csr0,mem_reg_herald,'MEM' ,0) 
Else 

cot) Caves (Lun,32,(3) ,memory_csr0,mem_rea_herald,'MEM' ,0) 
n 


Endif 
Return 
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BRIEF _C_DISPATCHER iBose ep 198e 13:09: 


C 

C poteratne the revert. ty pe, one call the brief and/or cryptic routines. 
C Parameters for cat) te are 

(lLun,number of reg sforbrigt are: heralds ,name,unit) 


000 If ( Report_type .—Q. ‘B’ hen 
al tYDHER notin, Dhead pes 


( Br 

Call ns oe clun ae P2, %val(Brief_P3), Brief_P4, 
emb$t _dv_name, emb$w_dv_unit) 

_ oriet 32 = 0 


* call BRIEFI6 (lun, Brief_P2, %val(Brief_P3), Brief_P4, 
é ait emb$t _dv_name, emb$w_dv_unit) 
n 


“tall CRYPTK —_ 
1 mb$t _dv_fiame, embSi_ dv un 
Endif 
Return 


— 


3 


Return 
End 


DONOVLSWN —“QOODONOULS WI" O0O- 


Cryp_P2, Brief_P2, Svel Sorter, P3), Brief_P4, 
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BRIEF _C_DISPATCHER 


PROGRAM SECTIONS 
Name 


Total Space Allocated 


ENTRY POINTS 
Address Type 


0-00000000 
VARIABLES 
Address Type 
CHAR 
1 


Name 
BRIEF _C_DISPATCHER 


Name 
oot TR 


DEV$B~D 
DEVST_DEV NAME ~LEN 


2 
1 


1E-se-1984 25:59:04 vay 


FORTRAN ¥3 8-36 Pa 
DISKSVMSMASTER:LERF .SRCJB_C_DISP.FOR;1 


Attributes 

RD NOWRT LONG 
RD NOWRT LONG 
RD WRI L 

RD WRT LONG 


RD WRT LONG 
RD WRT LONG 


Name 
ALL_SUMM 
BRIEF _P2 
BUGMSG_LENGTH 
CMDSA_POINTER 
MO$B- TYPE 


Address Type 


YPEDEVICE_CLASS 
CLA 


o->—=z 
>) 


be] 


PANINI NADI AAAI AA AIA A AAIPO POPPI PIN & ES MWIPNONNNY 
seeececeeceeceee ees 6 6 6 


zo-rom 
— 


ge 46 


| 
| 


Oe ee es ee ee ee SS * 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsSsss 


BRIEF _C_DISPATCHER 


ARRAYS 


Address Type 


I*4 


L_END_ENTRY 
“MBX-UNIT 
L“START_ENTRY 


MEMORY TYPE 

MOUNT _ERROR_COUNT 
OPTIONS 

PCNFGR 


PRINTER 
RECORD _LENGTH 
SLOT INDEX 
SUMMARY _FLAG 
HENJ 


T 
TR 
UBA_CSR 

UBA_FMER 

UBA-SR 
UCBSL_B8S_CUR 
VALID-CLASS 

VALID" ENTRY 

VOLUME _ERROR_COUNT 


VOLUME” OUTPUT 
XFER_ADDR 


BRIEF _P4 
BUFFER 
BUGSR_BUGCHK_FLAGS 
BUGCHR_DEF 


ora 


Pa 


2 
IB-ge -1984 23:59:04 VAX-11 FORTRAN 
~300n 138% 93529301 
- 3F CHAR EMBST_DV_NAME 
- 3 CHAR EMBS$T-SP-_NAME 
~ CHAR EMBST-VM~LABEL 
- 1F CHAR ERB ST _VH_NARE 
- 2 Is EMBSW-DV_BOFF 
- C I*2 EMBSW_DV_FUNC 
- A I Ht te At 
- It MBSW_HD-ERRSEQ 
- I*2 EMBSW-LM_UNIT 
- 1*2 EMBSW-SP_ERRCNT 
- I*2 EMBSW-SP"STS 
- 10 I*2 EMBSWOSS"MSGSZ 
- 1C¢ ¢ EMBSW-VM- UNIT 
4- 1E€ L*l ENv_VALUE 
-0000004A L*l ERLSB_RPT_TYPE 
-0000 367 I*4 ERLSL_-MBX~ CHANNEL 
“00000048 I*4 ERLSL-SID-SELECTION 
- ° ° F CHAR ERLS$T_GETCHN_BUFFER 
4-00000004 L*4 FORMS 
2-00000536 CHAR IMAGE_NAME 
~000008A0 [*4 LINCHK P2 
-$5000010 1*2 LOGMSCP_TYPE 
P-000000048 L*1 LUN 
-00000000 I*4 MEMORY_CSRO 
-000 5000 1*4 MEMORY_REGISTER_O 
-00000584 I*4 MEMORY SUMM 
-000004E6 CHAR MESSAG 
-000005D4 1*4 MOUNT OPERATION COUNT 
me tats 1*4 PADRIVER_ERROR_TYPE_CODE 
“00000000 I*4 PORT CONFIGURATION_REGISTER 
2-80800800 I*4 RECCRT 
4-000000 I*4 RECORD_SIZE 
P- ite CHAR REPORT_TYPE 
2-000005B80 I*4 STATUS 
P-00000010@ L*1 SUMMARY_QUAL 
-Q00004E2 Li TOF 
~RORRRO Ie I*4 UBA_CR 
-0000001C I*4 UBA_DCR 
~O NOES I*4 UBA_FUBAR 
- $0009 3 1*4 UCBSB_BS_ERRMSG 
- OaN8 FO R*4 UDA_SA 
4-0000001A L*i VALTD_CPU 
ross 44 a L*1 VALID TYPE 
¢- DC I*4 VOLUME_OPERATION_COUNT 
~000004E4 L*1 WRITE1 
Bytes Dimensions 
8 (*) 
484 (0:120) 
1 (1) 
1 (1) 
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~300- 138? 93:29:04 DISKSVMSMASTER: ERF .SRCIB_C_DISP.FOR:1> 
OD CHAR CI_REG_HERALD (0:5) PRC 
TAD CHAR DD-REG-HERALD 38 (8:33 
- 3 L*1 DEVSR_FLAGS_ OVERLAY 1 (1) 
- 3 Le] DEVSR-FLAG_BITS 1 (1) 
~ 20 L*l DEV QUEUE 31. (31) " 
- AC IG DHERD _P (2) 1 
- Al CHAR DR11W-REG_HERALD 20 (0:4) é 
00000371 CHAR DR750-REG_HERALD 48 (0:5) 
-00000359 CHAR DR780-REG HERALD 24 (0:5) 
-00000403 CHAR DT07_REG_RERALD 19 (0:1) 
-000002E2 CHAR DUP_REG_RERALD 25 (0:4) 
L*1 EMB 518 (0:511) ENT 
- L*1 EMBSB_LM_MSGTXT 460 (460) 
-000000 I*4 EMBSL_DV_REGSAV 420 (0:104) 
00000006 I*4 EMBSQ"HD-TIME H (2) 
-0000004F I*4 ERLSQ"-ENB_DATE (2) C 
00000057 I*4 ERLSQ"START_DATE 8 (2) 
“8900009 L*1 ERLSR-CMD_LINE 8 (8) 
Le] EXCSR-EXCCUDE_FLAGS (3) VAR 
Le] EXCDEF 3 (3) 
I*4 EXTENDED_REGISTERS 8 (2) 
I1*2 EXTENDED STATUS 8 (4) ; 
L*1 INC$R_INCLUDE_FLAGS 3 (3) ¢ 
$-00000060 L*1 INCDEF 3 (3) é 
I*2 INITIALIZATION HANDSHAKE 16 (B) 
CHAR KMS3271_REG_HERALD 50 (0:9) 
CHAR LPA_REG HERALD 16 (0:3) LAE 
CHAR MA780_REG HERALD 64 (8) 
CHAR MBA_REG_HERALD ¢3 (6) 
1*4 MEM_REG_BUFFER é (8) 
CHAR MEM-REG HERALD 15 (3) 1 
CHAR MF_REG_RERALD 102 (0:16) 
CHAR ML-REG_HERALD 60 (0:11) 
CHAR MO 55 (0:4) FUN 
CHAR MS780C_REG_HERALD 15 (3) 
CHAR MS780E-REG_HERALD 20 (4) 1 
I*4 MSG BU 28 (0:6) 
L*1 OPTSR_OPT_FLAGS 3 (3) 
L*1 OPTDEF 3 (3) 
CHAR PCL11R_REG_HERALD 36 (0:5) 
CHAR PCL11T-REG_HERALD 42 (0:6) 
L*l PRS_DATA 81 (81) 
L*1 PRS” TABLE 8 (8) 
CHAR RB_REG_HERALD 8 (0:6) 
1*4 REG_COPY 48 (0:11) 
CHAR REG_HERALD1 48 (0:11) 
CHAR REG HERALD2 48 (0:11) 
1*4 RH780_CONTROL_REGISTER 24 (6) 
CHAR RK_REG_HERALD 48 (0:11) 
CHAR RL_REG_HERALD 16 (0:3) 
CHAR RX~REG_HERALD 30 (0:5) 
CHAR SB-REG HERALD 28 (0:3) 
L*1 SUMSR_SUMMARY_FLAGS 1 (1) 
Le1 SUMDEF 1 (1) | 
CHAR TAPE _REG_HERALD 40 (0:9) | 
CHAR TS_REG HERALD 4 (0:6) | 
CHAR UBA_REG_HERALD 36 (0:5) 
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HEABER 
I*4 LIBSEXTZV 


PADRIVER_ATTENTION_ERROR_CODE 


UCB$$B_BS_ERRMSG 
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DISKSVMSMASTER: CERF .SRCJB_C_DISP. FOR: 1 


| 3 
18-sep-19 4 3: +06 VAX=11 FORTRAN “36 ge ° _ 
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Subroutine BRIEF _PADRIVER_LOGMESSAGE (Lun) 


oO 
S 
Wr 


33 


include ‘src$:msghdr.for /nolist' 
include ‘src$:emblmdef.for /nolist' 


byte Lun 

equivalence Cemb$b_lm_msgtxt(1) ,padriver_error_type_code) 
integer*4 padriver_error_type_code 

integere4 error_subtype 

integer*4 compress4 


call header (Lun) 
call logger (lun, "ERLSLOGMESSAGE ENTRY‘) 


error_subtype = LibSextzv(0,8,padriver_error_type_code) 
error_type = Lib$Sextzv(8,7,padriver_error_type_code) 


call Linchk (Llun,2) 
if (error_type .eq. 64) then 
if (error_subtype .eq. 0) then 
write(lun,10) emb$t_lm_name(1:emb$b_lm_namlng), 
emb$w_lm_unit, "UNRECOGNIZED ‘'SCA'’ PACRET' 
10 formatt/'~*, "Ci SUB-SYSTEM *,a<emb$b_lm_namlng> 


i<compress4 (LibSextzv(0,16cemb$w_lm_unit))>,": - ', 


integert4 error_type 
a,:i<compress4 (error_subtype)>,:a) 


else if (error_subtype .eq. 1) then 


WN OC DONAUVEWN “OO OODNOAULSWN —OOONAUE WW 


1 emb$w_lm_unit,*PORT HAS CLOSED ‘VIRTUAL CIR 
else if (error_subtype .eq. 2) then 


write(lun,10) emb$t_lm_name(1:emb$b_lm_naming), 


write(lun,10) emb$t_lm_name(1:emb$b_ lm fet iin eee 
1 emb$w_lm_unit, SOFTWARE SHUTTING DOWNPORT' 
else if (error_subtype .eq. 3) then | 


write(lun,10) emb$t_lm_name(1:emb$b_lm_namlng) 
1 emb$w_lm_unit, SOFTWARE IS CLOSING™''VIRTUAL CiRCcUIT'’ 


else if (error_subtype .eq. 4) then 
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write(lun,10) emb$t_lm_ name(1:emb$b Lm naming), 
1 emb$w_(m_unit, "RECEIVED ‘‘CONNECT’’ QITROUT PATH-BLOCK' 


else if (error_subtype .eq. 5) then 
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write(lun,10) emb$t_lm_name(i:emb$b_lm_naming), 


3 
BRIEF _PADRIVER_LOGMESSAGE 15-Sep-1984 $929 :08 VAX=11 FORTRAN V3.4-56 Page 51 
55-Sep-1984 13:49:41 DISKSVMSMASTER: CERF .SRCJB_C_DISP.FOR;1 
018% 1 emb$w_lm_unit," INAPPROPRIATE '’SCA'' CONTROL MESSAGE' 
a else if (error_subtype .eq. 6) then 
188 write(lun,10) emb$t_lm_name(1:emb$b_lm_naming) 
312 1 emb$w_lm_unit,'NO PATA=BLOCK DURING MOT RITUAL €IRCUIT' CLOSE’ 
0191 else if (error_subtype .eq. 7) then 
Bias write(lun7i0) emb$t_lm_name(1:emb$b_ lm ponioe 
0198 1 emb$w_lm_unit,'HSC ERROR LOGGING DATAGRAM RECEIVED." 
0195 else if corror .suptype -eq. 8) then 
0196 write(lun,10) emb$t_lm_name(1:emb$b pa.neeine) 
Bige 1 emb$w_lm_unit, REMOTE SYSTEM CONFLICTS WITH KNOWN SYSTEM. ' 
0199 
0200 endif 
0201 
Bs0§ else If (error_type .eq. 65) then 
020 Write(lun,10) emb$t_lm name(1:emb$b_lm_naming), 
0204 1 emb$w_lm_unit, DATA CABLE(S) CHANGE OF “STATE 
0205 Call Tinchk (lun,2) ; 
0206 If cerror subtype -eq. 0) then 
0207 write(lun,12) ‘PATH #0. HAS GONE FROM GOOD TO BAD’ 
0208 12 format(/* ',t8,a) 
0209 Else 
0210 Goto (200,205,210,215,220,225,230,235,240,245,250) 
0211 1 error_subtype { 
osi¢ 999 Continue ! 
021 Endif 00. 
ae a 3 
0216 write(lun,25) emb$t_\im_name(1:emb$b_lm_naming), 00: 
0217 1 emb$w_lm_unit,'’PADRIVER’’ ERROR TYPE#',error_type, 00: 
0218 1 '., ERROR SUB-TYPE #* error subtype a, 00: 
0219 25 format(/" ',*CI SUB-SYSTEM, _*,a<emb$6b_im_naming>, 90. 
0220 1 i<compress4 (LibSextzv(0,15,emb$w_lm_unit))>,": - ', 00: 
0938 1 o ;conpreess (error_type)>,a,i<compress4 (error_subtype)>,a) bo: 
en : 
0 00: 
0394 call padriver_initialization (lun,padriver_error_type_code) oo 
$558 Return 00+ 
3 7 200 write(lun,12) "PATH #1. HAS GONE FROM GOOD TO BAD' $3 
: goto 999 00. 
$ 0 205 write(lun,12) ‘PATH #0. HAS GONE FROM BAD TO GOOD’ 00: 
a533 goto 999 00. 
$3 210 write(lun,12) "PATH #1. HAS GONE FROM BAD TO GOOD' 00 
ite: goto 999 | 4 
256 215 write(lun,12) ‘CABLES HAVE GONE FROM UNCROSSED TO CROSSED‘ 
238 goto 999 | 
9 220 write(lun,12) "CABLES HAVE GONE FROM CROSSED TO UNCROSSED‘ | 
0240 goto 999 | | 
| 
| 


BRIEF __PADRIVER_LOGME SSAGE 18-se S$ep-1984 t $923 9g! 


VAX=11 FORTRAN 


-Sep-1984 DISKSVMSMASTER: 
0241 
ri} 225 wr ised lan. 12) ‘PATH #0. LOOPBACK HAS GONE FROM GOOD TO BAD’ 
re goto 9 
0245 230 write(lun,12) ‘PATH #1. LOOPBACK HAS GONE FROM GOOD TO BAD’ 
° ré goto 999 
0248 235 write(lun,12)"PATH #0. LOOPBACK HAS BECOME GOOD, UNCROSSED' 
0950 goto 999 
0251 240 write(lun,12)"PATH #1. LOOPBACK HAS BECOME GOOD, UNCROSSED' 
9526 goto 999 
025 
0254 245 we iteClun.1 2) 
0255 1 PATH #0. HAS BECOME WORKING BUT CROSSED TO PATH #1." 
0256 goto 999 
0257 
bS26 250 write(lun,12) 
0259 1 "PATH #1. HAS BECOME WORKING BUT CROSSED TO PATH #0.' 
0260 goto 999 
0261 End 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 1625 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1040 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 332 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
3 EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 3509 
ENTRY POINTS 
Address Type Name 
0-00000000 BRIEF _PADRIVER_LOGMESSAGE 
VARIABLES 
Address Type Name Address Type Name 
-00000010 L*!] EMBSB_ LA. CLASS -00000014 L*l EMBS$B_LM_NAMLNG 
-00000011 L*l EMBSB_LM_TYPE “$00 0 I*4 EMBSL-HD-SID 
15 CHAR EMBST— tA NAME ms iss EMBSW_HD_ENTRY 
I*2 EMBSW_ HD- =FRASEO -00 4 I*2 EMBSW_LM_MSGTYP 
-00000012 I*2 EMBSW_LM-UNIT ERROR_ SUBTYPE 


- 000 1#4 
1*4 ERROR“ TYPE ab-0000000ea Lat 
00000026 1*4 PADRIVER_ERROR_TYPE_CODE 


356 -5 
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-Sep-1 DISKSVMSMASTER: CERF. SRCIJB_C_DISP.FOR; 
ARRAYS 


Address Type Name Bytes Dimensions 
L*1 —MB 51 (0:51) | 
6 L*l EMBSB_LM_MSGTXT 460 (460) 
1*4 EMBSO- “hb: TIME (2) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address’ Label 
1-0000039D 10° 1-000003D0 12° 1-000003D 5° a 4 4 Pk 390 0-00000458 205 0-00000481 10 
0-0000046A7 215 0-000004(D § 0 0-000004F 25 -00000519 0 0-0000053F 235 0-00000565 240 
0-00000588 245 0-00000581 0 0-000003AD 999 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 HEADER I*4 LIBSEXTZV 
LINCHK LOGGER PADRIVER_INITIALIZATION 


a 
15-Sep-1984 
55-Sep-1984 


3 


5 
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9 
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:0 
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4 
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PARAS 


Sep-19 759: 
ifese 300-188 F829; 
Subroutine BRIEF _PUDRIVER_MSCP_DISPATCHER (Lun,reccnt) 

include ‘src$:msghdr.for /nolist' 


include ‘srcS:emblmdef.for /nolist' 
include ‘src$:embspdef.for /nolist' 


04 
at 


byte lun 

byte ms\g$b_ format 

Integer*4 reccnt 

equivalence Cemb (46) ,mslg$b_ format) 


if (emb$w_hd_entry .eq. 100) then 


call FRCTOF (lun) 

call HEADER2 (lune 

call LOGGER (Lun, ¢ TER ST Ogmessace ENTRY‘) 

call DHEAD2 (Lun T* ,emb$b_lm_namlng,emb$t_\m_name, 
1 ie. a gi... 


else if (emb$w_hd_entry .eq. 99) then 

call FRCTOF (lun) 

call HEADER2 (lun or 

call LOGGER (lun, ° ERS Ocsratus ENTRY") 

call DHEAD2 (lun,'’’DSA T* ,emb$b_sp_namlng,emb$t_sp_name, 
1 emb$w SPL aaah 
Endif 


Return 
End 


VAX=11 FORTRAN V3.4-56 Page 55 
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BRIEF _PUDRIVER_MSCP_DISPATCHER 15. se-1984 23:59:04  VAXe11 FORTRAN V3, 4-56 Page 56. 
=Sep-1984 13:49:4 DISKSVMSMASTER: CERF. 3Rc18. C_DISP.FOR:1 


| 
| 
| 
PROGRAM SECTIONS | 
Name Bytes Attributes 
0 SCODE PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA } PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
g SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB PIC OVR REL GBL SHR NOEXE RD WRT LONG | 4 
Total Space Allocated 844 88. 
ENTRY POINTS 09 
Address Type Name oo. 
0-00000000 BRIEF _PUDRIVER_MSCP_DISPATCHER 83. 
00° 
VARIABLES 09. 
4 
Address Type Name Address Type Name 4 
4 
~00000010 L*1 EMBSB_LM_CLASS -00000014 L*1 EMBS$B_LM_NAMLNG 00; 
~00000011 L*l EMBSB"LM~TYPE -00000010 L*1 EMB$B"SP~CLASS 00, 
-00000060 L#1 $87 SP~NAMLNG - 90 9011 L*l EMBSB-SP"TYPE 00; 
I*4 EMBSL-HD-SID - 0 9 14 [4 EMBSL“SP~BC 00; 
~00000038 I*4 EMBSL“SP—CHAR -0000003C I*4 EMBSL“SP—CMDREF 00; 
090000 0 I*4 EmMB$L"SP~10SB1 -00000024 I*4 EMBSL“SP7IOS 00; 
18 I*4 EMBSL“SP"MEDIA -0000002C 14 EMBSL-SP"OPCNT 00: 
00000034 I*4 EMBSL“SP~ Ic -0000001C I*4 EMBSL-SP"ROPID 00: 
15 CHAR EMBST_LM_NAME 9098008) CHAR EMBS$T_SP_NAM 00: 
1*2 EMBSW_HD_ENTRY -0000000 *2 EMB$W"HD-ERRSEQ 00! 
24 I*2 EMBSWILM_MSGTYP 00000012 I*2 EMBSW-LM_UNIT 00: 
-00000012 I*2 EMBSW~SP_BOFF -9000005 It? EMBS$W"SP-ERRCNT 00: 
00000028 I*2 EMBSW-SP_FUNC -000000 1*2 EMBSW-SP"STS 00: 
-0000002A I*2 EMBSW"SP"UNIT AP-00000004@ L*1 LUN 00: 
-0000002E L*1 MSLGSB_FORMAT AP-00000008@ I*4 RECCNT 60) 
00/ 
ARRAYS 9 
Address Type Name Bytes Dimensions | 00é 
-00000000 Lel EMB 512 (0:511) 
~00000026 L*l EMBSB_LM_MSGIXT 460 (460) 
-00000006 I*4 EMBSO"HD-TIME 8 (2) 90 
FUNCTIONS AND SUBROUTINES REFERENCED | 09 
Type Name Type Name Type Name Type Name 
DHEAD2 FRCTOF HEADER2 LOGGER | 
| " 
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0001 


COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$:8_C_DISP/0BJ=08J$:B8_C_DISP MSRC$:B_C_DISP 


/ CHE CK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOLS TRACE EBACK) 
/STANDARD® (MOS TNTAK SOURCE 

/SHOW= (NOPREPR PROCESSOR. ROINE LODE 

77 /NOG_FLOATING /14 TOP TIATIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 0.87 seconds 
Elapsed Time: 1.18 seconds 
Page Faults: 95 
Dynamic Memory: 455 
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